Linux Cubed Series 3: Developer Tools/Linux Cubed Series 3 - Developer Tools.iso/devel/lang/lisp/clisp-li.000/clisp-li/clisp-1996-07-22/src/compiler.fas

CLISP byte-compiled Lisp program | 1996-07-22 | 330.2 KB | 6,405 lines

(SYSTEM::VERSION '(19071996.))
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
   (COMPILER COMPILE COMPILE-FILE DISASSEMBLE)
  )
#Y(#:TOP-LEVEL-FORM-3
   #21Y(00 00 00 00 00 00 00 00 00 01 D8 6A 01 37 03 30 BC 0F 01 19 01)
   COMPILER *FEATURES*
  )
#Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
   "COMPILER"
  )
#Y(#:TOP-LEVEL-FORM-5 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DD 19 01)
   (FUNCTION-NAME-P PARSE-BODY MAKE-LOAD-TIME-EVAL CLOSURE-NAME CLOSURE-CODEVEC
     CLOSURE-CONSTS FIXNUMP SHORT-FLOAT-P SINGLE-FLOAT-P DOUBLE-FLOAT-P
     LONG-FLOAT-P SEARCH-FILE DATE-FORMAT LINE-NUMBER %FUNTABREF INLINABLE
     *COMPILING* *COMPILING-FROM-FILE* *INLINE-FUNCTIONS* *VENV* *FENV* *BENV*
     *GENV* *DENV* *TOPLEVEL-DENV* C-PROCLAIM C-PROCLAIM-CONSTANT C-DEFUN
     C-PROVIDE C-REQUIRE
  ))
#Y(#:TOP-LEVEL-FORM-6 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DD 19 01)
   (VERSION SUBR-INFO)
  )
#Y(#:TOP-LEVEL-FORM-7
   #35Y(00 00 00 00 00 00 00 00 00 01 D8 70 D0 D9 8C 62 0B AA D9 70 52 8D 04 04
        D9 DA 2F 03 D9 AB 31 85 C4 19 02
       )
   #1="KEYWORD" *KEYWORD-PACKAGE*
   (DEFCONSTANT *KEYWORD-PACKAGE* (FIND-PACKAGE #1#)) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-8
   #35Y(00 00 00 00 00 00 00 00 00 01 D8 70 D0 D9 8C 62 0B AA D9 70 52 8D 04 04
        D9 DA 2F 03 D9 AB 31 85 C4 19 02
       )
   #1="LISP" *LISP-PACKAGE* (DEFCONSTANT *LISP-PACKAGE* (FIND-PACKAGE #1#))
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-9
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *COMPILING*) *COMPILING*
  )
#Y(#:TOP-LEVEL-FORM-10
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 63 30 56 C4 19 01
       )
   (SPECIAL *COMPILE-WARNINGS*) *COMPILE-WARNINGS*
  )
#Y(#:TOP-LEVEL-FORM-11
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 63 30 56 C4 19 01
       )
   (SPECIAL *COMPILE-VERBOSE*) *COMPILE-VERBOSE*
  )
#Y(#:TOP-LEVEL-FORM-12
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *COMPILE-PRINT*) *COMPILE-PRINT*
  )
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *COMPILING-FROM-FILE*) *COMPILING-FROM-FILE*
  )
#Y(#:TOP-LEVEL-FORM-14
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *COMPILE-FILE-PATHNAME*) *COMPILE-FILE-PATHNAME*
  )
#Y(#:TOP-LEVEL-FORM-15
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *COMPILE-FILE-TRUENAME*) *COMPILE-FILE-TRUENAME*
  )
#Y(#:TOP-LEVEL-FORM-16
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *COMPILE-FILE-LINENO1*) *COMPILE-FILE-LINENO1*
  )
#Y(#:TOP-LEVEL-FORM-17
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *COMPILE-FILE-LINENO2*) *COMPILE-FILE-LINENO2*
  )
#Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *C-LISTING-OUTPUT*) *C-LISTING-OUTPUT*
  )
#Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *C-ERROR-OUTPUT*) *C-ERROR-OUTPUT*
  )
#Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *KNOWN-SPECIAL-VARS*) *KNOWN-SPECIAL-VARS*
  )
#Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *CONSTANT-SPECIAL-VARS*) *CONSTANT-SPECIAL-VARS*
  )
#Y(#:TOP-LEVEL-FORM-22
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *FASOUTPUT-STREAM*) *FASOUTPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-23
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *LIBOUTPUT-STREAM*) *LIBOUTPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-24
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *COUTPUT-FILE*) *COUTPUT-FILE*
  )
#Y(#:TOP-LEVEL-FORM-25
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *COUTPUT-STREAM*) *COUTPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-26
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *FUNCTIONS-WITH-ERRORS*) *FUNCTIONS-WITH-ERRORS*
  )
#Y(#:TOP-LEVEL-FORM-27 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *KNOWN-FUNCTIONS*) *KNOWN-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *UNKNOWN-FUNCTIONS*) *UNKNOWN-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *UNKNOWN-FREE-VARS*) *UNKNOWN-FREE-VARS*
  )
#Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *INLINE-FUNCTIONS*) *INLINE-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *NOTINLINE-FUNCTIONS*) *NOTINLINE-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *INLINE-DEFINITIONS*) *INLINE-DEFINITIONS*
  )
#Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *USER-DECLARATION-TYPES*) *USER-DECLARATION-TYPES*
  )
#Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *COMPILED-MODULES*) *COMPILED-MODULES*
  )
#Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *PACKAGE-TASKS*) *PACKAGE-TASKS*
  )
#Y(#:TOP-LEVEL-FORM-36
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
       )
   (SPECIAL *FFI-MODULE*) *FFI-MODULE*
  )
#Y(#:TOP-LEVEL-FORM-37-1
   #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 3D 19 01
       )
   %RECORD-REF SETF-EXPANDER %RECORD-STORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-37-2
   #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 3D
        19 01
       )
   CLOSURE-NAME SETF-EXPANDER -1.
   #Y(SETF-CLOSURE-NAME
      #21Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 AB D9 AF 60 04 19 04)
      %RECORD-STORE 0.
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-37-3
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CLOSURE
      #29Y(00 00 00 00 00 00 00 00 80 1B 03 00 00 00 3C 03 3C 02 3C 01 AD AD 71
           3A AD 31 3B 19 04
          )
      :NAME :CODEVEC :CONSTS
  )  )
#Y(#:TOP-LEVEL-FORM-38
   #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
        03 D8 D9 31 85 C3 19 01
       )
   INSTRUCTION-TABLE
   #1=#((NIL O) (PUSH-NIL N) (T O) (CONST K) (LOAD K) (LOADI NNN) (LOADC NN)
        (LOADV NN) (LOADIC NNNN) (STORE K) (STOREI NNN) (STOREC NN) (STOREV NN)
        (STOREIC NNNN) (GETVALUE N) (SETVALUE N) (BIND N) (UNBIND1 O)
        (UNBIND N) (PROGV O) (PUSH O) (POP O) (SKIP N) (SKIPI NNN) (SKIPSP NN)
        (SKIP&RET N) (JMP L) (JMPIF L) (JMPIFNOT L) (JMPIF1 L) (JMPIFNOT1 L)
        (JMPIFATOM L) (JMPIFCONSP L) (JMPIFEQ L) (JMPIFNOTEQ L) (JMPIFEQTO NL)
        (JMPIFNOTEQTO NL) (JMPHASH NHL) (JMPHASHV NHL) (JSR L) (JMPTAIL NNL)
        (VENV O) (MAKE-VECTOR1&PUSH N) (COPY-CLOSURE NN) (CALL NN) (CALL0 N)
        (CALL1 N) (CALL2 N) (CALLS1 B) (CALLS2 B) (CALLSR NB) (CALLC O)
        (CALLCKEY O) (FUNCALL N) (APPLY N) (PUSH-UNBOUND N) (UNLIST NN)
        (UNLIST* NN) (JMPIFBOUNDP NL) (BOUNDP N) (UNBOUND->NIL N) (VALUES0 O)
        (VALUES1 O) (STACK-TO-MV N) (MV-TO-STACK O) (NV-TO-STACK N)
        (MV-TO-LIST O) (LIST-TO-MV O) (MVCALLP O) (MVCALL O) (BLOCK-OPEN NL)
        (BLOCK-CLOSE O) (RETURN-FROM N) (RETURN-FROM-I NNN) (TAGBODY-OPEN NLX)
        (TAGBODY-CLOSE-NIL O) (TAGBODY-CLOSE O) (GO NN) (GO-I NNNN)
        (CATCH-OPEN L) (CATCH-CLOSE O) (THROW O) (UNWIND-PROTECT-OPEN L)
        (UNWIND-PROTECT-NORMAL-EXIT O) (UNWIND-PROTECT-CLOSE O)
        (UNWIND-PROTECT-CLEANUP O) (HANDLER-OPEN NC) (HANDLER-BEGIN&PUSH O)
        (NOT O) (EQ O) (CAR O) (CDR O) (CONS O) (SYMBOL-FUNCTION O) (SVREF O)
        (SVSET O) (LIST N) (LIST* N) (NIL&PUSH O) (T&PUSH O) (CONST&PUSH K)
        (LOAD&PUSH K) (LOADI&PUSH NNN) (LOADC&PUSH NN) (LOADV&PUSH NN)
        (POP&STORE N) (GETVALUE&PUSH N) (JSR&PUSH L) (COPY-CLOSURE&PUSH NN)
        (CALL&PUSH NN) (CALL1&PUSH N) (CALL2&PUSH N) (CALLS1&PUSH B)
        (CALLS2&PUSH B) (CALLSR&PUSH NB) (CALLC&PUSH O) (CALLCKEY&PUSH O)
        (FUNCALL&PUSH N) (APPLY&PUSH N) (CAR&PUSH O) (CDR&PUSH O) (CONS&PUSH O)
        (LIST&PUSH N) (LIST*&PUSH N) (NIL&STORE N) (T&STORE N)
        (LOAD&STOREC NNN) (CALLS1&STORE BN) (CALLS2&STORE BN)
        (CALLSR&STORE NBN) (LOAD&CDR&STORE N) (LOAD&CONS&STORE N)
        (LOAD&INC&STORE N) (LOAD&DEC&STORE N) (LOAD&CAR&STORE NN)
        (CALL1&JMPIF NL) (CALL1&JMPIFNOT NL) (CALL2&JMPIF NL)
        (CALL2&JMPIFNOT NL) (CALLS1&JMPIF BL) (CALLS1&JMPIFNOT BL)
        (CALLS2&JMPIF BL) (CALLS2&JMPIFNOT BL) (CALLSR&JMPIF NBL)
        (CALLSR&JMPIFNOT NBL) (LOAD&JMPIF NL) (LOAD&JMPIFNOT NL)
        (LOAD&CAR&PUSH N) (LOAD&CDR&PUSH N) (LOAD&INC&PUSH N) (LOAD&DEC&PUSH N)
        (CONST&SYMBOL-FUNCTION N) (CONST&SYMBOL-FUNCTION&PUSH N)
        (CONST&SYMBOL-FUNCTION&STORE NN) (APPLY&SKIP&RET NN)
       )
   (DEFCONSTANT INSTRUCTION-TABLE '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-39
   #38Y(00 00 00 00 00 00 00 00 00 01 D8 D9 71 4A 1A 0D D9 9D 5E 77 AA DA AE 31
        8A 16 01 84 01 AB AB 90 01 32 6D 00 19 03
       )
   0. #.INSTRUCTION-TABLE INSTRUCTION
  )
#Y(#:TOP-LEVEL-FORM-40
   #65Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 DA 71 4A 1A 0D DA 9D
        5E 77 AA AE AE 30 69 16 01 84 01 AB AB 90 01 32 6D 16 02 DB 8C 62 0B AA
        DB 70 52 8D 04 04 DB DC 2F 05 DB AB 31 85 C6 19 02
       )
   #.#'EQ 0. #.INSTRUCTION-TABLE INSTRUCTION-CODES
   (DEFCONSTANT INSTRUCTION-CODES
     (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
       (DOTIMES (I (LENGTH INSTRUCTION-TABLE))
         (SETF (GETHASH (FIRST (SVREF INSTRUCTION-TABLE I)) HASHTABLE) I)
       )
       HASHTABLE
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-41
   #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
        03 D8 D9 31 85 C3 19 01
       )
   INSTRUCTION-TABLE-K #1=#(LOAD LOAD&PUSH CONST CONST&PUSH STORE)
   (DEFCONSTANT INSTRUCTION-TABLE-K '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-42
   #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
        03 D8 D9 31 85 C3 19 01
       )
   SHORT-CODE-BASE 155. (DEFCONSTANT SHORT-CODE-BASE 155.) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-43
   #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
        03 D8 D9 31 85 C3 19 01
       )
   SHORT-CODE-OPSIZE #1=#(15. 25. 21. 30. 10.)
   (DEFCONSTANT SHORT-CODE-OPSIZE '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-44
   #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
        03 D8 D9 31 85 C3 19 01
       )
   SHORT-CODE-OPS #1=#(155. 170. 195. 216. 246.)
   (DEFCONSTANT SHORT-CODE-OPS '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-45
   #64Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 1A 0F AA 70 00 92 00
        05 14 AD AD 30 69 16 01 84 00 AA DA 90 01 32 6B 16 01 DB 8C 62 0B AA DB
        70 52 8D 04 04 DB DC 2F 05 DB AB 31 85 C6 19 02
       )
   #.#'EQ 0. 768. FUNCTION-CODES
   (DEFCONSTANT FUNCTION-CODES
     (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
       (DOTIMES (I (* 3. 256.))
         (LET ((SYM (%FUNTABREF I)))
           (WHEN SYM (SETF (GETHASH SYM HASHTABLE) I))
       ) )
       HASHTABLE
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-46
   #65Y(00 00 00 00 00 00 00 00 00 01 D8 1A 14 A0 16 06 1A 18 AA 70 00 AA 30 01
        41 04 91 00 70 16 05 84 00 AA D9 90 01 32 6B 00 16 01 14 DA 8C 62 0B AA
        DA 70 52 8D 04 04 DA DB 2F 04 DA AB 31 85 C5 19 02
       )
   0. 768. FUNTABR-INDEX
   (DEFCONSTANT FUNTABR-INDEX
     (DOTIMES (I (* 3. 256.))
       (LET ((SYM (%FUNTABREF I)))
         (MULTIPLE-VALUE-BIND (NAME REQ OPT REST-P) (SUBR-INFO SYM)
           (DECLARE (IGNORE NAME REQ OPT)) (WHEN REST-P (RETURN I))
   ) ) ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-47
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) CALLS-CODE
   REMOVE-OLD-DEFINITIONS
   #Y(CALLS-CODE
      #31Y(00 00 00 00 01 00 00 00 00 02 AB D8 8F 01 2F 0B DA DB AD 32 02 35 14
           60 02 19 02 D9 9D 1A 77
          )
      256. CALLS1 CALLS2 -256.
  )  )
#Y(#:TOP-LEVEL-FORM-48
   #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) MEMQ
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(MEMQ
      #58Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 19 9D 5B 77 9E 5B
           5B 77 AA 8C 62 06 AA 70 5F 8D 0E 0D DD AC AC C9 61 03 19 05 AC 2E 01
           19 03 DA AC AC 70 5F C6 79 C7 1A 6D
          )
      3. MACRO-CALL-ERROR CASE (T) ((T NIL)) MEMBER (:TEST #'EQ)
  )  )
#Y(#:TOP-LEVEL-FORM-49
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   COMPILER-ERROR REMOVE-OLD-DEFINITIONS
   #Y(COMPILER-ERROR
      #23Y(00 00 00 00 01 00 01 00 00 08 3C 01 D8 D9 DA 6D 03 03 AD AD 32 02 1E
          )
      "Compiler bug!! Occurred in ~A~@[ at ~A~]."
      "Fehler im Compiler!! Aufgetreten in ~A~@[ bei ~A~]."
      "Erreur dans le compilateur!! ArrivΘ dans ~A~@[ au point ~A~]." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *STACKZ*) *STACKZ*
  )
#Y(#:TOP-LEVEL-FORM-51
   #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SPD
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(SPD
      #37Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 0E 9D 5B 77 9E 5B
           5B 77 DA AC AC 60 03 19 05 AC 2E 01 19 03
          )
      3. MACRO-CALL-ERROR CONS
  )  )
#Y(#:TOP-LEVEL-FORM-52
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SPD+
   REMOVE-OLD-DEFINITIONS
   #Y(SPD+
      #27Y(00 00 00 00 02 00 00 00 00 03 93 02 93 02 72 02 35 94 03 94 03 32 02
           35 5C 19 03
  )  )    )
#Y(#:TOP-LEVEL-FORM-53
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SPD-
   REMOVE-OLD-DEFINITIONS
   #Y(SPD-
      #27Y(00 00 00 00 02 00 00 00 00 03 93 02 93 02 72 01 36 94 03 94 03 32 01
           36 5C 19 03
  )  )    )
#Y(#:TOP-LEVEL-FORM-54
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SPD<=
   REMOVE-OLD-DEFINITIONS
   #Y(SPD<=
      #30Y(00 00 00 00 02 00 00 00 00 03 93 02 93 02 32 01 31 1E 09 94 02 94 02
           32 01 31 19 03 19 03
  )  )    )
#Y(#:TOP-LEVEL-FORM-55
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SOME-SPD<=
   REMOVE-OLD-DEFINITIONS
   #Y(SOME-SPD<=
      #34Y(00 00 00 00 02 00 00 00 00 03 AB 62 1A 0D 02 19 05 86 01 00 AE AB 89
           00 75 82 01 AB 8C 97 72 00 19 05
          )
      SPD<=
  )  )
#Y(#:TOP-LEVEL-FORM-56
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STACKZ-FUN
   REMOVE-OLD-DEFINITIONS
   #Y(STACKZ-FUN
      #24Y(00 00 00 00 01 00 00 00 00 02 9C 1F 08 AB 37 01 30 A1 5B 19 02 9C 19
           02
  )  )    )
#Y(#:TOP-LEVEL-FORM-57
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   IN-SAME-FUNCTION-P REMOVE-OLD-DEFINITIONS
   #Y(IN-SAME-FUNCTION-P
      #19Y(00 00 00 00 02 00 00 00 00 03 AC 6E 00 AC 2E 00 59 19 03) STACKZ-FUN
  )  )
#Y(#:TOP-LEVEL-FORM-58
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ZUGRIFF-IN-STACK REMOVE-OLD-DEFINITIONS
   #Y(ZUGRIFF-IN-STACK
      #249Y(00 00 00 00 02 00 00 00 00 03 62 D8 D8 C3 79 AF A0 21 80 C7 A0 20
            04 D9 DA 2F 03 93 05 AA 8D 0F 26 9B 1F 3D 93 00 AA 23 04 22 AA 24
            06 2A AC DF CA 79 2F 08 F8 AD E1 9E 5B 77 32 02 35 14 81 02 35 03
            16 01 1A 80 8D AC 9C 1A 80 5F AD DD 9E 5B 77 72 02 37 31 99 1A 65
            D9 E2 2F 03 16 01 1A 80 73 9B 25 0B 80 6A 14 AC 2F 08 1A 04 91 03
            77 9C F9 DF C3 5C F7 C3 F8 1A 80 5A AB DD CA 79 2F 08 F7 CC 1A 25
            AB DD CA 79 2F 08 F7 C8 1A 1B 14 AC 2F 08 1A 04 91 03 77 9C F9 E1
            C3 5C F7 C3 F8 1A 33 AB DD CA 79 2F 08 F7 CC 14 9E 14 81 02 35 02
            1A 22 AB DF C3 79 2F 08 F7 84 02 1A 17 14 AC 2F 08 1A 04 91 03 77
            9C F9 DF C3 5C F7 C3 F8 1A 04 D9 E4 2F 03 16 01 82 05 1A FF 34 9F
            1F 15 93 04 23 0D 0A 9F 5A 1F 0C 9F 5A 77 24 06 06 DD AC 81 02 35
            01 AC AC 3F 02 19 06
           )
      0. ZUGRIFF-IN-STACK "STACKZ-END" COMPILER-ERROR BIND 2. TAGBODY 1. SPD+
      3. "STACKZ-LISTITEM"
      #S(HASH-TABLE EQ (ANYTHING . 95.) (MVCALL . 95.) (MVCALLP . 78.)
         (BLOCK . 61.) (CLEANUP . 48.) (UNWIND-PROTECT . 32.) (CATCH . 22.)
         (PROGV . 8.)
        )
      "STACKZ-ITEM" BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-59
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAY-UNWIND
   REMOVE-OLD-DEFINITIONS
   #Y(MAY-UNWIND
      #36Y(00 00 00 00 02 00 00 00 00 03 AC 9D 21 10 9D 20 04 D8 D9 2F 02 93 02
           23 03 07 82 02 1A 6C 02 19 03 00 19 03
          )
      MAY-UNWIND "STACKZ-END" COMPILER-ERROR ANYTHING
  )  )
#Y(#:TOP-LEVEL-FORM-60
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   EXPAND-UNWIND REMOVE-OLD-DEFINITIONS
   #Y(EXPAND-UNWIND
      #289Y(00 00 00 00 03 00 00 00 00 04 00 2A 04 00 0B 00 00 C3 0B 00 01 14
            C3 5C 0B 00 02 00 0B 00 03 AA 6C 01 01 AF A0 21 80 F0 A0 20 04 DA
            DB 2F 04 93 05 AA 8D 0F 1D 9B 1F 2E 93 00 AA 23 05 1A AA 24 07 1B
            9D 33 CB 14 06 04 03 5C 0B 03 03 16 01 1A 80 BF 67 02 01 9C 1A 35
            9D 33 C9 1A 68 DA E1 2F 04 16 01 1A 80 AB 9B 25 0A 80 A2 9C 33 E3
            06 03 03 5C 0B 02 03 E4 C3 5C 0B 02 02 1A 80 93 67 02 02 E5 CF 79
            2F 0E 0B 02 02 E7 06 03 01 14 32 02 35 0B 02 01 1A 80 7A 7D 04 E8
            06 03 03 5C 0B 02 03 D4 1A 2B 9C 33 92 04 6E D4 1A 23 14 67 03 02
            2F 0E 1A 08 06 02 00 1B 73 06 02 02 0B 02 00 E7 C3 5C 0B 02 02 C3
            0B 02 01 1A 80 45 9C 33 D5 14 06 03 03 5C 0B 02 03 1A 38 67 02 02
            E4 C3 79 2F 0E 0B 02 02 67 02 01 31 99 0B 02 01 1A 23 14 67 03 02
            2F 0E 1A 08 06 02 00 1B 73 06 02 02 0B 02 00 E4 C3 5C 0B 02 02 C3
            0B 02 01 1A 04 DA EB 2F 04 16 01 82 05 1A FF 0B 9B 33 67 01 03 31
            4C 19 06
           )
      0.
      #Y(EXPAND-UNWIND-HERE
         #153Y(00 00 00 00 00 00 00 00 00 01 07 00 01 1B 80 4A 68 00 02 DA 90
               01 30 0D E0 68 00 02 7A 02 07 00 04 5C 0C 00 04 07 00 03 77 DA
               8F 01 30 09 07 00 03 78 DA 90 01 30 13 DF 07 00 03 5A 14 07 00
               03 78 7A 03 07 00 04 5C 0C 00 04 00 0C 00 01 C5 0C 00 02 14 C5
               5C 0C 00 03 19 01 D9 07 00 01 77 07 00 01 78 68 00 02 7A 04 07
               00 04 5C 0C 00 04 07 00 03 77 DA 8F 01 30 04 DB DC 2F 05 07 00
               03 77 DE 8F 01 30 0A 07 00 03 78 DA 90 01 30 FF BB DF 07 00 03
               77 31 9A 1A FF A3
              )
         NIL SKIPI 0. EXPAND-UNWIND "SP-depth" COMPILER-ERROR 1. SKIPSP SKIP
        )
      EXPAND-UNWIND "STACKZ-END" COMPILER-ERROR BIND (UNBIND1) TAGBODY
      (TAGBODY-CLOSE) "STACKZ-LISTITEM"
      #S(HASH-TABLE EQ (MVCALL . 141.) (MVCALLP . 112.) (BLOCK . 99.)
         (CLEANUP . 75.) (UNWIND-PROTECT . 59.) (CATCH . 21.) (PROGV . 2.)
        )
      (UNBIND1) 1. 2. SPD+ 3. (VALUES0) (UNWIND-PROTECT-CLEANUP) (BLOCK-CLOSE)
      "STACKZ-ITEM"
  )  )
#Y(#:TOP-LEVEL-FORM-61
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   SPDEPTH-DIFFERENCE REMOVE-OLD-DEFINITIONS
   #Y(SPDEPTH-DIFFERENCE
      #80Y(00 00 00 00 02 00 00 00 00 03 D8 C3 79 1A 3A AC DD C8 79 2F 06 F8 16
           01 1A 2B 93 00 AA 23 04 6F 16 01 1A 21 9E 20 04 D9 DA 2F 03 93 03 9B
           20 6A 9B 25 07 11 AB DD C3 1A 08 AB E0 C8 1A 03 AB E1 C3 79 2F 06 F7
           16 01 82 03 AD 9E 22 57 15 19 03
          )
      0. SPDEPTH-DIFFERENCE "STACKZ-END" COMPILER-ERROR TAGBODY 1. SPD+
      #S(HASH-TABLE EQ (CLEANUP . 11.) (BLOCK . 6.) (UNWIND-PROTECT . 6.)
         (CATCH . 6.) (ANYTHING . 1.) (MVCALL . 1.) (MVCALLP . 1.) (PROGV . 1.)
        )
      2. 3.
  )  )
#Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *FENV*) *FENV*
  )
#Y(#:TOP-LEVEL-FORM-63
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   FENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(FENV-SEARCH
      #111Y(00 00 00 00 01 00 01 00 00 08 3A 01 1C 0E 00 F7 91 01 19 00 19 03
            DC 94 01 3F 02 19 06 93 00 23 04 74 DD 94 01 9D 5A 1A 2C 92 01 67
            AB 8D 27 03 D9 2E 02 AB 71 4A 71 9A DB AA AC 8F 01 2D 23 AE AE 9D
            5E 14 8E 05 13 AD AB 31 99 5E 14 9B 20 4D DE AF AD 31 99 14 3F 03
            19 06 DF AB 81 02 35 00 1A 57 AD 9C 5E F9 16 02 92 01 FF A7 1A FF
            BD
           )
      *FENV* FENV-SEARCH COMPILER-ERROR 0. MACRO LOCAL GLOBAL 2.
  )  )
#Y(#:TOP-LEVEL-FORM-64
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   GLOBAL-IN-FENV-P REMOVE-OLD-DEFINITIONS
   #Y(GLOBAL-IN-FENV-P #17Y(00 00 00 00 02 00 00 00 00 03 AC AC 2F 00 58 19 03)
      FENV-SEARCH
  )  )
#Y(#:TOP-LEVEL-FORM-65 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *BENV*) *BENV*
  )
#Y(#:TOP-LEVEL-FORM-66
   #296Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 D8 DE
         72 04 00 31 8A DB 2E 07 E0 30 5E E1 2E 01 E1 E2 E3 31 8A E1 E4 31 84
         E5 30 5E E6 30 5E E7 2E 01 E7 E2 E8 31 8A E7 E9 31 84 EA 30 5E EB 30
         5E EC 2E 01 EC E2 ED 31 8A EC EE 31 84 EF 30 5E F0 30 5E F1 2E 01 F1
         E2 F2 31 8A F1 F3 31 84 F4 30 5E F5 30 5E 64 1E 2E 01 64 1E E2 64 1F
         31 8A 64 1E 64 20 31 84 64 21 30 5E 64 22 30 5E 64 23 2E 01 64 23 E2
         64 24 31 8A 64 23 64 25 31 84 64 26 30 5E 64 27 30 5E 64 28 2E 01 64
         28 E2 64 29 31 8A 64 28 64 2A 31 84 E7 64 2B 64 2C 03 2D 79 31 8A E7
         64 2E 62 2C 03 2F EC 64 2B 64 2C 03 30 79 31 8A EC 64 2E 62 2C 03 2F
         F1 64 2B 64 2C 03 31 79 31 8A F1 64 2E 62 2C 03 2F 64 1E 64 2B 64 2C
         03 32 79 31 8A 64 1E 64 2E 62 2C 03 2F 64 23 64 2B 64 2C 03 33 79 31
         8A 64 23 64 2E 62 2C 03 2F 64 28 64 2B 64 2C 03 34 79 31 8A 64 28 64
         2E 62 2C 03 2F DB 64 35 62 2C 03 2F DB 64 36 31 8B C6 19 01
        )
   MAKE-BLOCK REMOVE-OLD-DEFINITIONS
   #Y(MAKE-BLOCK
      #69Y(00 00 00 00 00 00 00 00 80 1B 06 00 00 00 3C 06 3C 05 3C 04 3C 03 3C
           02 3C 01 DE DF 71 34 E0 AB E1 B4 31 33 E0 AB E2 B3 31 33 E0 AB E3 B2
           31 33 E0 AB E4 B1 31 33 E0 AB E5 B0 31 33 E0 AB E6 AF 31 33 15 19 07
          )
      :FNODE :LABEL :STACKZ :CONSVAR :USED-FAR :FOR-VALUE #1=(BLOCK) 7. BLOCK
      1. 2. 3. 4. 5. 6.
     )
   BLOCK DEFSTRUCT-DESCRIPTION #1#
   (#(FNODE (:FNODE) 1. (NIL) NIL T NIL) #(LABEL (:LABEL) 2. (NIL) NIL T NIL)
     #(STACKZ (:STACKZ) 3. (NIL) NIL T NIL)
     #(CONSVAR (:CONSVAR) 4. (NIL) NIL T NIL)
     #(USED-FAR (:USED-FAR) 5. (NIL) NIL T NIL)
     #(FOR-VALUE (:FOR-VALUE) 6. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE BLOCK-P) BLOCK-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN BLOCK-P))
     (BLOCK BLOCK-P (%STRUCTURE-TYPE-P 'BLOCK OBJECT))
   )
   #Y(BLOCK-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) BLOCK)
   (FUNCTION BLOCK-FNODE (BLOCK) T) (INLINE BLOCK-FNODE) BLOCK-FNODE
   (#2=(OBJECT) (DECLARE (IN-DEFUN BLOCK-FNODE))
     (BLOCK BLOCK-FNODE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 1.)))
   )
   #Y(BLOCK-FNODE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      BLOCK 1.
     )
   (FUNCTION BLOCK-LABEL (BLOCK) T) (INLINE BLOCK-LABEL) BLOCK-LABEL
   (#2# (DECLARE (IN-DEFUN BLOCK-LABEL))
     (BLOCK BLOCK-LABEL (THE T (%STRUCTURE-REF 'BLOCK OBJECT 2.)))
   )
   #Y(BLOCK-LABEL #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      BLOCK 2.
     )
   (FUNCTION BLOCK-STACKZ (BLOCK) T) (INLINE BLOCK-STACKZ) BLOCK-STACKZ
   (#2# (DECLARE (IN-DEFUN BLOCK-STACKZ))
     (BLOCK BLOCK-STACKZ (THE T (%STRUCTURE-REF 'BLOCK OBJECT 3.)))
   )
   #Y(BLOCK-STACKZ #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      BLOCK 3.
     )
   (FUNCTION BLOCK-CONSVAR (BLOCK) T) (INLINE BLOCK-CONSVAR) BLOCK-CONSVAR
   (#2# (DECLARE (IN-DEFUN BLOCK-CONSVAR))
     (BLOCK BLOCK-CONSVAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 4.)))
   )
   #Y(BLOCK-CONSVAR #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      BLOCK 4.
     )
   (FUNCTION BLOCK-USED-FAR (BLOCK) T) (INLINE BLOCK-USED-FAR) BLOCK-USED-FAR
   (#2# (DECLARE (IN-DEFUN BLOCK-USED-FAR))
     (BLOCK BLOCK-USED-FAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 5.)))
   )
   #Y(BLOCK-USED-FAR #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      BLOCK 5.
     )
   (FUNCTION BLOCK-FOR-VALUE (BLOCK) T) (INLINE BLOCK-FOR-VALUE)
   BLOCK-FOR-VALUE
   (#2# (DECLARE (IN-DEFUN BLOCK-FOR-VALUE))
     (BLOCK BLOCK-FOR-VALUE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 6.)))
   )
   #Y(BLOCK-FOR-VALUE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      BLOCK 6.
     )
   SETF-EXPANDER -1.
   #Y(SETF-BLOCK-FNODE
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-BLOCK-LABEL
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 2.
     )
   #Y(SETF-BLOCK-STACKZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 3.
     )
   #Y(SETF-BLOCK-CONSVAR
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 4.
     )
   #Y(SETF-BLOCK-USED-FAR
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 5.
     )
   #Y(SETF-BLOCK-FOR-VALUE
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 6.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 8B 19 01)
   BLOCK DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-68
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(BENV-SEARCH
      #52Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 9C 1F 0A 9C 5A 77 9E
           21 0C 82 01 1A 73 00 19 03 9C 5A 5B 19 03 9C 5A 78 D9 AB 31 36 16 01
           1B 70 9C 5A 19 03
          )
      *BENV* BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *GENV*) *GENV*
  )
#Y(#:TOP-LEVEL-FORM-70
   #252Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 D8 DE
         72 04 00 31 8A DB 2E 07 E0 30 5E E1 2E 01 E1 E2 E3 31 8A E1 E4 31 84
         E5 30 5E E6 30 5E E7 2E 01 E7 E2 E8 31 8A E7 E9 31 84 EA 30 5E EB 30
         5E EC 2E 01 EC E2 ED 31 8A EC EE 31 84 EF 30 5E F0 30 5E F1 2E 01 F1
         E2 F2 31 8A F1 F3 31 84 F4 30 5E F5 30 5E 64 1E 2E 01 64 1E E2 64 1F
         31 8A 64 1E 64 20 31 84 64 21 30 5E 64 22 30 5E 64 23 2E 01 64 23 E2
         64 24 31 8A 64 23 64 25 31 84 E7 64 26 64 27 03 28 79 31 8A E7 64 29
         62 2C 03 2A EC 64 26 64 27 03 2B 79 31 8A EC 64 29 62 2C 03 2A F1 64
         26 64 27 03 2C 79 31 8A F1 64 29 62 2C 03 2A 64 1E 64 26 64 27 03 2D
         79 31 8A 64 1E 64 29 62 2C 03 2A 64 23 64 26 64 27 03 2E 79 31 8A 64
         23 64 29 62 2C 03 2A DB 64 2F 62 2C 03 2A DB 64 30 31 8B C6 19 01
        )
   MAKE-TAGBODY REMOVE-OLD-DEFINITIONS
   #Y(MAKE-TAGBODY
      #61Y(00 00 00 00 00 00 00 00 80 1B 05 00 00 00 3C 05 3C 04 3C 03 3C 02 3C
           01 DD DE 71 34 DF AB E0 B3 31 33 DF AB E1 B2 31 33 DF AB E2 B1 31 33
           DF AB E3 B0 31 33 DF AB E4 AF 31 33 15 19 06
          )
      :FNODE :LABELLIST :STACKZ :CONSVAR :USED-FAR #1=(TAGBODY) 6. TAGBODY 1.
      2. 3. 4. 5.
     )
   TAGBODY DEFSTRUCT-DESCRIPTION #1#
   (#(FNODE (:FNODE) 1. (NIL) NIL T NIL)
     #(LABELLIST (:LABELLIST) 2. (NIL) NIL T NIL)
     #(STACKZ (:STACKZ) 3. (NIL) NIL T NIL)
     #(CONSVAR (:CONSVAR) 4. (NIL) NIL T NIL)
     #(USED-FAR (:USED-FAR) 5. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE TAGBODY-P) TAGBODY-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN TAGBODY-P))
     (BLOCK TAGBODY-P (%STRUCTURE-TYPE-P 'TAGBODY OBJECT))
   )
   #Y(TAGBODY-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) TAGBODY)
   (FUNCTION TAGBODY-FNODE (TAGBODY) T) (INLINE TAGBODY-FNODE) TAGBODY-FNODE
   (#2=(OBJECT) (DECLARE (IN-DEFUN TAGBODY-FNODE))
     (BLOCK TAGBODY-FNODE (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 1.)))
   )
   #Y(TAGBODY-FNODE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      TAGBODY 1.
     )
   (FUNCTION TAGBODY-LABELLIST (TAGBODY) T) (INLINE TAGBODY-LABELLIST)
   TAGBODY-LABELLIST
   (#2# (DECLARE (IN-DEFUN TAGBODY-LABELLIST))
     (BLOCK TAGBODY-LABELLIST (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 2.)))
   )
   #Y(TAGBODY-LABELLIST
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) TAGBODY 2.
     )
   (FUNCTION TAGBODY-STACKZ (TAGBODY) T) (INLINE TAGBODY-STACKZ) TAGBODY-STACKZ
   (#2# (DECLARE (IN-DEFUN TAGBODY-STACKZ))
     (BLOCK TAGBODY-STACKZ (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 3.)))
   )
   #Y(TAGBODY-STACKZ #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      TAGBODY 3.
     )
   (FUNCTION TAGBODY-CONSVAR (TAGBODY) T) (INLINE TAGBODY-CONSVAR)
   TAGBODY-CONSVAR
   (#2# (DECLARE (IN-DEFUN TAGBODY-CONSVAR))
     (BLOCK TAGBODY-CONSVAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 4.)))
   )
   #Y(TAGBODY-CONSVAR #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      TAGBODY 4.
     )
   (FUNCTION TAGBODY-USED-FAR (TAGBODY) T) (INLINE TAGBODY-USED-FAR)
   TAGBODY-USED-FAR
   (#2# (DECLARE (IN-DEFUN TAGBODY-USED-FAR))
     (BLOCK TAGBODY-USED-FAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 5.)))
   )
   #Y(TAGBODY-USED-FAR #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      TAGBODY 5.
     )
   SETF-EXPANDER -1.
   #Y(SETF-TAGBODY-FNODE
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-TAGBODY-LABELLIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 2.
     )
   #Y(SETF-TAGBODY-STACKZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 3.
     )
   #Y(SETF-TAGBODY-CONSVAR
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 4.
     )
   #Y(SETF-TAGBODY-USED-FAR
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 5.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-71 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 8B 19 01)
   TAGBODY DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-72
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   GENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(GENV-SEARCH
      #77Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 9C 1F 09 9C 5A 77 AA
           71 4A D9 1A 25 00 19 03 9F 5A 5B 1A 0D 9F 5A 78 DA AB 31 36 16 01 1B
           70 9F 5A 14 AB 3F 02 19 06 AC 9C 5E 14 B0 8D 04 65 84 00 AA AC 90 01
           2D 70 16 03 82 01 1A 43
          )
      *GENV* 0. TAGBODY
  )  )
#Y(#:TOP-LEVEL-FORM-73
   #22Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 DA 70 5F 30 56 C4 19 01)
   (SPECIAL SPECDECL) SPECDECL
   (LET
     ((*EVALHOOK*
         #'(LAMBDA (FORM ENV) (DECLARE (IGNORE FORM)) (SVREF (SVREF ENV 0.) 1.)
     ))    )
     0.
  ))
#Y(#:TOP-LEVEL-FORM-74
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   PROCLAIMED-SPECIAL-P REMOVE-OLD-DEFINITIONS
   #Y(PROCLAIMED-SPECIAL-P
      #29Y(00 00 00 00 01 00 00 00 00 02 AB 31 91 1D 0C AB 6A 00 D9 37 02 30 B8
           58 58 19 02 19 02
          )
      *KNOWN-SPECIAL-VARS* #.#'EQ
  )  )
#Y(#:TOP-LEVEL-FORM-75 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *VENV*) *VENV*
  )
#Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *VENVC*) *VENVC*
  )
#Y(#:TOP-LEVEL-FORM-77
   #444Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 D8 DE
         72 04 00 31 8A DB 2E 07 E0 30 5E E1 2E 01 E1 E2 E3 31 8A E1 E4 31 84
         E5 30 5E E6 30 5E E7 2E 01 E7 E2 E8 31 8A E7 E9 31 84 EA 30 5E EB 30
         5E EC 2E 01 EC E2 ED 31 8A EC EE 31 84 EF 30 5E F0 30 5E F1 2E 01 F1
         E2 F2 31 8A F1 F3 31 84 F4 30 5E F5 30 5E 64 1E 2E 01 64 1E E2 64 1F
         31 8A 64 1E 64 20 31 84 64 21 30 5E 64 22 30 5E 64 23 2E 01 64 23 E2
         64 24 31 8A 64 23 64 25 31 84 64 26 30 5E 64 27 30 5E 64 28 2E 01 64
         28 E2 64 29 31 8A 64 28 64 2A 31 84 64 2B 30 5E 64 2C 30 5E 64 2D 2E
         01 64 2D E2 64 2E 31 8A 64 2D 64 2F 31 84 64 30 30 5E 64 31 30 5E 64
         32 2E 01 64 32 E2 64 33 31 8A 64 32 64 34 31 84 64 35 30 5E 64 36 30
         5E 64 37 2E 01 64 37 E2 64 38 31 8A 64 37 64 39 31 84 64 3A 30 5E 64
         3B 30 5E 64 3C 2E 01 64 3C E2 64 3D 31 8A 64 3C 64 3E 31 84 64 3F 30
         5E 64 40 30 5E 64 41 2E 01 64 41 E2 64 42 31 8A 64 41 64 43 31 84 F1
         64 44 64 45 03 46 79 31 8A F1 64 47 62 2C 03 48 64 1E 64 44 64 45 03
         49 79 31 8A 64 1E 64 47 62 2C 03 48 64 23 64 44 64 45 03 4A 79 31 8A
         64 23 64 47 62 2C 03 48 64 28 64 44 64 45 03 4B 79 31 8A 64 28 64 47
         62 2C 03 48 64 2D 64 44 64 45 03 4C 79 31 8A 64 2D 64 47 62 2C 03 48
         64 32 64 44 64 45 03 4D 79 31 8A 64 32 64 47 62 2C 03 48 64 37 64 44
         64 45 03 4E 79 31 8A 64 37 64 47 62 2C 03 48 DB 64 4F 62 2C 03 48 DB
         64 50 31 8B C6 19 01
        )
   MAKE-VAR REMOVE-OLD-DEFINITIONS
   #Y(MAKE-VAR
      #109Y(00 00 00 00 00 00 00 00 80 1B 0B 00 00 00 3C 0B 3C 0A 3C 09 3C 08
            3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 E3 E4 71 34 E5 AB E6 B9
            31 33 E5 AB E7 B8 31 33 E5 AB E8 B7 31 33 E5 AB E9 B6 31 33 E5 AB
            EA B5 31 33 E5 AB EB B4 31 33 E5 AB EC B3 31 33 E5 AB ED B2 31 33
            E5 AB EE B1 31 33 E5 AB EF B0 31 33 E5 AB F0 AF 31 33 15 19 0C
           )
      :NAME :SPECIALP :CONSTANTP :CONSTANT :USEDP :REALLY-USEDP :MODIFIED-LIST
      :REPLACEABLE-LIST :CLOSUREP :STACKZ :VENVC #1=(VAR) 12. VAR 1. 2. 3. 4.
      5. 6. 7. 8. 9. 10. 11.
     )
   VAR DEFSTRUCT-DESCRIPTION #1#
   (#(NAME (:NAME) 1. (NIL) NIL T T) #(SPECIALP (:SPECIALP) 2. (NIL) NIL T T)
     #(CONSTANTP (:CONSTANTP) 3. (NIL) NIL T NIL)
     #(CONSTANT (:CONSTANT) 4. (NIL) NIL T NIL)
     #(USEDP (:USEDP) 5. (NIL) NIL T NIL)
     #(REALLY-USEDP (:REALLY-USEDP) 6. (NIL) NIL T NIL)
     #(MODIFIED-LIST (:MODIFIED-LIST) 7. (NIL) 'NIL T NIL)
     #(REPLACEABLE-LIST (:REPLACEABLE-LIST) 8. (NIL) 'NIL T NIL)
     #(CLOSUREP (:CLOSUREP) 9. (NIL) NIL T NIL)
     #(STACKZ (:STACKZ) 10. (NIL) NIL T T) #(VENVC (:VENVC) 11. (NIL) NIL T T)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE VAR-P) VAR-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN VAR-P))
     (BLOCK VAR-P (%STRUCTURE-TYPE-P 'VAR OBJECT))
   )
   #Y(VAR-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) VAR)
   (FUNCTION VAR-NAME (VAR) T) (INLINE VAR-NAME) VAR-NAME
   (#2=(OBJECT) (DECLARE (IN-DEFUN VAR-NAME))
     (BLOCK VAR-NAME (THE T (%STRUCTURE-REF 'VAR OBJECT 1.)))
   )
   #Y(VAR-NAME #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR 1.)
   (FUNCTION VAR-SPECIALP (VAR) T) (INLINE VAR-SPECIALP) VAR-SPECIALP
   (#2# (DECLARE (IN-DEFUN VAR-SPECIALP))
     (BLOCK VAR-SPECIALP (THE T (%STRUCTURE-REF 'VAR OBJECT 2.)))
   )
   #Y(VAR-SPECIALP #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR
      2.
     )
   (FUNCTION VAR-CONSTANTP (VAR) T) (INLINE VAR-CONSTANTP) VAR-CONSTANTP
   (#2# (DECLARE (IN-DEFUN VAR-CONSTANTP))
     (BLOCK VAR-CONSTANTP (THE T (%STRUCTURE-REF 'VAR OBJECT 3.)))
   )
   #Y(VAR-CONSTANTP #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      VAR 3.
     )
   (FUNCTION VAR-CONSTANT (VAR) T) (INLINE VAR-CONSTANT) VAR-CONSTANT
   (#2# (DECLARE (IN-DEFUN VAR-CONSTANT))
     (BLOCK VAR-CONSTANT (THE T (%STRUCTURE-REF 'VAR OBJECT 4.)))
   )
   #Y(VAR-CONSTANT #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR
      4.
     )
   (FUNCTION VAR-USEDP (VAR) T) (INLINE VAR-USEDP) VAR-USEDP
   (#2# (DECLARE (IN-DEFUN VAR-USEDP))
     (BLOCK VAR-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 5.)))
   )
   #Y(VAR-USEDP #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR 5.
     )
   (FUNCTION VAR-REALLY-USEDP (VAR) T) (INLINE VAR-REALLY-USEDP)
   VAR-REALLY-USEDP
   (#2# (DECLARE (IN-DEFUN VAR-REALLY-USEDP))
     (BLOCK VAR-REALLY-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 6.)))
   )
   #Y(VAR-REALLY-USEDP #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      VAR 6.
     )
   (FUNCTION VAR-MODIFIED-LIST (VAR) T) (INLINE VAR-MODIFIED-LIST)
   VAR-MODIFIED-LIST
   (#2# (DECLARE (IN-DEFUN VAR-MODIFIED-LIST))
     (BLOCK VAR-MODIFIED-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 7.)))
   )
   #Y(VAR-MODIFIED-LIST
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR 7.
     )
   (FUNCTION VAR-REPLACEABLE-LIST (VAR) T) (INLINE VAR-REPLACEABLE-LIST)
   VAR-REPLACEABLE-LIST
   (#2# (DECLARE (IN-DEFUN VAR-REPLACEABLE-LIST))
     (BLOCK VAR-REPLACEABLE-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 8.)))
   )
   #Y(VAR-REPLACEABLE-LIST
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR 8.
     )
   (FUNCTION VAR-CLOSUREP (VAR) T) (INLINE VAR-CLOSUREP) VAR-CLOSUREP
   (#2# (DECLARE (IN-DEFUN VAR-CLOSUREP))
     (BLOCK VAR-CLOSUREP (THE T (%STRUCTURE-REF 'VAR OBJECT 9.)))
   )
   #Y(VAR-CLOSUREP #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR
      9.
     )
   (FUNCTION VAR-STACKZ (VAR) T) (INLINE VAR-STACKZ) VAR-STACKZ
   (#2# (DECLARE (IN-DEFUN VAR-STACKZ))
     (BLOCK VAR-STACKZ (THE T (%STRUCTURE-REF 'VAR OBJECT 10.)))
   )
   #Y(VAR-STACKZ #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR
      10.
     )
   (FUNCTION VAR-VENVC (VAR) T) (INLINE VAR-VENVC) VAR-VENVC
   (#2# (DECLARE (IN-DEFUN VAR-VENVC))
     (BLOCK VAR-VENVC (THE T (%STRUCTURE-REF 'VAR OBJECT 11.)))
   )
   #Y(VAR-VENVC #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) VAR
      11.
     )
   SETF-EXPANDER -1.
   #Y(SETF-VAR-CONSTANTP
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 3.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-VAR-CONSTANT
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 4.
     )
   #Y(SETF-VAR-USEDP
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 5.
     )
   #Y(SETF-VAR-REALLY-USEDP
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 6.
     )
   #Y(SETF-VAR-MODIFIED-LIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 7.
     )
   #Y(SETF-VAR-REPLACEABLE-LIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 8.
     )
   #Y(SETF-VAR-CLOSUREP
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 9.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-78 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 8B 19 01)
   VAR DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-79
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   VENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(VENV-SEARCH
      #126Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 AC 8B 62 0B AC 87
            01 07 91 01 80 54 00 19 03 C5 19 03 AB 71 4A 71 9A DB 1A 36 C5 19
            06 DC AB DD 8D 32 77 63 AB 3F 02 19 06 C5 19 06 AD AB 31 99 5E 14
            DC AB 8D 36 66 AA 0E 06 21 6D DF AF 95 03 3F 03 19 06 AE AE 9D 5E
            21 62 DD AB 81 02 35 00 AA AC 90 01 2D 6E AD 9C 5E F9 16 02 92 01
            FF AC AB 8D 27 FF AD E0 2E 09 92 01 FF A0 1A 72
           )
      *VENV* PROCLAIMED-SPECIAL-P SPECIAL 0. VAR 2. SPECDECL LOCAL VENV-SEARCH
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-80
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   VENV-SEARCH-MACRO REMOVE-OLD-DEFINITIONS
   #Y(VENV-SEARCH-MACRO
      #59Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 AC AC 2F 01 41 03 92
           02 07 AC 23 03 08 00 19 06 AF 2E 02 19 06 AB 9C 5E 14 2E 04 1E 0C 63
           AC 9D 5E 14 DD 71 2F 3F 02 19 06 19 06
          )
      *VENV* VENV-SEARCH SYMBOL-MACRO-EXPAND LOCAL SYMBOL-MACRO-P 0.
  )  )
#Y(#:TOP-LEVEL-FORM-81
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   PUSH-*VENV* REMOVE-OLD-DEFINITIONS
   #Y(PUSH-*VENV*
      #53Y(00 00 00 00 00 00 00 00 01 16 91 01 03 00 19 02 6A 00 7A 01 AC 62 1A
           0F 86 01 00 D9 AB DA 71 32 AB 9F 61 02 F8 82 01 AB 8C 97 6D 16 02 DB
           9C 36 00 0F 00 19 03
          )
      *VENV* VAR 1. #.#'VECTOR
  )  )
#Y(#:TOP-LEVEL-FORM-82
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ZUGRIFF-IN-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(ZUGRIFF-IN-CLOSURE
      #87Y(00 00 00 00 03 00 00 00 00 04 01 02 1A 1A AA 8D 0E 12 C5 F8 1A 0E 7C
           00 1A 25 93 04 92 02 6F 9B 1F 02 84 02 16 01 82 04 AE D8 B1 D9 31 32
           22 6A 91 01 63 AD A0 5A 78 2F 03 41 02 69 01 69 01 9F 5A 77 DA 1A 04
           82 01 84 00 93 01 A3 22 77 69 00 AC AC AC 3F 03 19 07
          )
      VAR 11. 0. ZUGRIFF-IN-STACK
  )  )
#Y(#:TOP-LEVEL-FORM-83
   #160Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 D8 DE
         72 04 00 31 8A DB 2E 07 E0 30 5E E1 2E 01 E1 E2 E3 31 8A E1 E4 31 84
         E5 30 5E E6 30 5E E7 2E 01 E7 E2 E8 31 8A E7 E9 31 84 EA 30 5E EB 30
         5E EC 2E 01 EC E2 ED 31 8A EC EE 31 84 EF 30 5E F0 30 5E F1 2E 01 F1
         E2 F2 31 8A F1 F3 31 84 E7 F4 F5 03 1E 79 31 8A E7 64 1F 62 2C 03 20
         EC F4 F5 03 21 79 31 8A EC 64 1F 62 2C 03 20 F1 F4 F5 03 22 79 31 8A
         F1 64 1F 62 2C 03 20 DB 64 23 62 2C 03 20 DB 64 24 31 8B C6 19 01
        )
   MAKE-CONST REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CONST
      #45Y(00 00 00 00 00 00 00 00 80 1B 03 00 00 00 3C 03 3C 02 3C 01 DB DC 71
           34 DD AB DE B1 31 33 DD AB DF B0 31 33 DD AB E0 AF 31 33 15 19 04
          )
      :VALUE :FORM :HORIZONT #1=(CONST) 4. CONST 1. 2. 3.
     )
   CONST DEFSTRUCT-DESCRIPTION #1#
   (#(VALUE (:VALUE) 1. (NIL) NIL T NIL) #(FORM (:FORM) 2. (NIL) NIL T NIL)
     #(HORIZONT (:HORIZONT) 3. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE CONST-P) CONST-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN CONST-P))
     (BLOCK CONST-P (%STRUCTURE-TYPE-P 'CONST OBJECT))
   )
   #Y(CONST-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) CONST)
   (FUNCTION CONST-VALUE (CONST) T) (INLINE CONST-VALUE) CONST-VALUE
   (#2=(OBJECT) (DECLARE (IN-DEFUN CONST-VALUE))
     (BLOCK CONST-VALUE (THE T (%STRUCTURE-REF 'CONST OBJECT 1.)))
   )
   #Y(CONST-VALUE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      CONST 1.
     )
   (FUNCTION CONST-FORM (CONST) T) (INLINE CONST-FORM) CONST-FORM
   (#2# (DECLARE (IN-DEFUN CONST-FORM))
     (BLOCK CONST-FORM (THE T (%STRUCTURE-REF 'CONST OBJECT 2.)))
   )
   #Y(CONST-FORM #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CONST
      2.
     )
   (FUNCTION CONST-HORIZONT (CONST) T) (INLINE CONST-HORIZONT) CONST-HORIZONT
   (#2# (DECLARE (IN-DEFUN CONST-HORIZONT))
     (BLOCK CONST-HORIZONT (THE T (%STRUCTURE-REF 'CONST OBJECT 3.)))
   )
   #Y(CONST-HORIZONT #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      CONST 3.
     )
   SETF-EXPANDER -1.
   #Y(SETF-CONST-VALUE
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONST 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-CONST-FORM
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONST 2.
     )
   #Y(SETF-CONST-HORIZONT
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONST 3.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-84 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 8B 19 01)
   CONST DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-85
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 DA 30 56 C4 19 01)
   (SPECIAL *DECLARATION-TYPES*) *DECLARATION-TYPES*
   (SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE OPTIMIZE DYNAMIC-EXTENT
     DECLARATION ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON
     COMPILED-FUNCTION COMPLEX CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION
     HASH-TABLE INTEGER KEYWORD LIST LONG-FLOAT NIL NULL NUMBER PACKAGE
     PATHNAME RANDOM-STATE RATIO RATIONAL READTABLE SEQUENCE SHORT-FLOAT
     SIMPLE-ARRAY SIMPLE-BIT-VECTOR SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT
     STANDARD-CHAR STREAM STRING STRING-CHAR SYMBOL T VECTOR COMPILE SOURCE
     IN-DEFUN IGNORABLE
  ))
#Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *DENV*) *DENV*
  )
#Y(#:TOP-LEVEL-FORM-87
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   PROCESS-DECLARATIONS REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-DECLARATIONS
      #273Y(00 00 00 00 01 00 00 00 00 02 01 03 AE 80 4C 04 14 62 1A 80 EE D8
            D9 DA 6D 03 03 AB 2F 04 1A 80 E0 94 01 62 1A 17 AA 83 07 1A 10 86
            01 00 14 8D 09 74 E4 E5 E6 6D 03 03 AB 2F 04 82 01 AB 8C 97 6A 16
            03 1A 80 BB 94 01 62 1A 17 AA 83 06 1A 10 86 01 00 14 8D 09 74 E8
            E9 EA 6D 03 03 AB 2F 04 82 01 AB 8C 97 6A 16 03 1A 80 96 94 01 62
            1A 17 AA 83 05 1A 10 86 01 00 14 8D 09 74 EC ED EE 6D 03 03 AB 2F
            04 82 01 AB 8C 97 6A 16 03 1A 80 71 16 01 AA 23 0B FF 8A AA 23 0F
            FF AA AA 23 13 4B AB 0E 07 5C 0F 07 16 01 1A 80 56 86 01 00 1F FF
            64 AA 37 01 30 A1 5B 1B FF 5B 93 00 AA 8E 09 34 AA 6A 05 DE 37 02
            8B B8 49 6A 07 92 00 16 9B 5A 77 24 08 0B AB 9C 5A 78 DE 37 02 8B
            B8 FF B1 82 00 91 00 6A 16 01 0E 09 1C 0A AA 6A 0A DE 37 02 8B B8
            FF 9E EF F0 F1 6D 03 03 AB AD 2C 03 04 16 01 82 01 AB 8C 97 FF A3
            16 02 AC AC AC 3F 03 19 05
           )
      "Bad declaration syntax: ~S~%Will be ignored."
      "Falsche Deklarationen-Syntax: ~S~%Wird ignoriert."
      "Mauvaise syntaxe pour une dΘclaration : ~S~%IgnorΘe." LANGUAGE C-WARN
      *DECLARATION-TYPES* #.#'EQ *DENV* DECLARATION *COMPILING-FROM-FILE*
      *USER-DECLARATION-TYPES* SPECIAL
      "Non-symbol ~S may not be declared SPECIAL."
      "Nur Symbole k÷nnen SPECIAL-deklariert werden, nicht ~S."
      "Seuls les symboles peuvent Ωtre dΘclarΘs SPECIAL, pas ~S." IGNORE
      "Non-symbol ~S may not be declared IGNORE."
      "Nur Symbole k÷nnen IGNORE-deklariert werden, nicht ~S."
      "Seuls les symboles peuvent Ωtre dΘclarΘs IGNORE, pas ~S." IGNORABLE
      "Non-symbol ~S may not be declared IGNORABLE."
      "Nur Symbole k÷nnen IGNORABLE-deklariert werden, nicht ~S."
      "Seuls les symboles peuvent Ωtre dΘclarΘs IGNORABLE."
      "Unknown declaration ~S.~%The whole declaration will be ignored."
      "Unbekannte Deklaration ~S.~%Die ganze Deklaration ~S wird ignoriert."
      "DΘclaration inconnue ~S.~%Toute la dΘclaration ~S est ignorΘe."
  )  )
#Y(#:TOP-LEVEL-FORM-88
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   DECLARED-NOTINLINE REMOVE-OLD-DEFINITIONS
   #Y(DECLARED-NOTINLINE
      #114Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 D9 AD 7A 02 6A 00
            DA 37 02 8C B8 12 1A 20 93 01 93 00 23 09 34 93 00 23 08 3B 16 01
            82 01 9C 20 6D 0E 03 1C 18 AC 6A 04 DA 37 02 8C B8 06 02 19 03 00
            19 03 AC 6A 05 DA 37 02 8B B8 74 AC 6E 06 DF 37 01 71 86 CB 59 19
            03 AD 94 01 DA 37 02 8C B8 43 00 19 04 AD 94 01 DA 37 02 8C B8 FF
            BB 02 19 04
           )
      *DENV* INLINING #.#'EQUAL *COMPILING-FROM-FILE* *NOTINLINE-FUNCTIONS*
      *INLINE-FUNCTIONS* GET-FUNNAME-SYMBOL INLINABLE NOTINLINE INLINE
  )  )
#Y(#:TOP-LEVEL-FORM-89
   #923Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 D8 DE
         72 04 00 31 8A DB 2E 07 E0 30 5E E1 2E 01 E1 E2 E3 31 8A E1 E4 31 84
         E5 30 5E E6 30 5E E7 2E 01 E7 E2 E8 31 8A E7 E9 31 84 EA 30 5E EB 30
         5E EC 2E 01 EC E2 ED 31 8A EC EE 31 84 EF 30 5E F0 30 5E F1 2E 01 F1
         E2 F2 31 8A F1 F3 31 84 F4 30 5E F5 30 5E 64 1E 2E 01 64 1E E2 64 1F
         31 8A 64 1E 64 20 31 84 64 21 30 5E 64 22 30 5E 64 23 2E 01 64 23 E2
         64 24 31 8A 64 23 64 25 31 84 64 26 30 5E 64 27 30 5E 64 28 2E 01 64
         28 E2 64 29 31 8A 64 28 64 2A 31 84 64 2B 30 5E 64 2C 30 5E 64 2D 2E
         01 64 2D E2 64 2E 31 8A 64 2D 64 2F 31 84 64 30 30 5E 64 31 30 5E 64
         32 2E 01 64 32 E2 64 33 31 8A 64 32 64 34 31 84 64 35 30 5E 64 36 30
         5E 64 37 2E 01 64 37 E2 64 38 31 8A 64 37 64 39 31 84 64 3A 30 5E 64
         3B 30 5E 64 3C 2E 01 64 3C E2 64 3D 31 8A 64 3C 64 3E 31 84 64 3F 30
         5E 64 40 30 5E 64 41 2E 01 64 41 E2 64 42 31 8A 64 41 64 43 31 84 64
         44 30 5E 64 45 30 5E 64 46 2E 01 64 46 E2 64 47 31 8A 64 46 64 48 31
         84 64 49 30 5E 64 4A 30 5E 64 4B 2E 01 64 4B E2 64 4C 31 8A 64 4B 64
         4D 31 84 64 4E 30 5E 64 4F 30 5E 64 50 2E 01 64 50 E2 64 51 31 8A 64
         50 64 52 31 84 64 53 30 5E 64 54 30 5E 64 55 2E 01 64 55 E2 64 56 31
         8A 64 55 64 57 31 84 64 58 30 5E 64 59 30 5E 64 5A 2E 01 64 5A E2 64
         5B 31 8A 64 5A 64 5C 31 84 64 5D 30 5E 64 5E 30 5E 64 5F 2E 01 64 5F
         E2 64 60 31 8A 64 5F 64 61 31 84 64 62 30 5E 64 63 30 5E 64 64 2E 01
         64 64 E2 64 65 31 8A 64 64 64 66 31 84 64 67 30 5E 64 68 30 5E 64 69
         2E 01 64 69 E2 64 6A 31 8A 64 69 64 6B 31 84 64 6C 30 5E 64 6D 30 5E
         64 6E 2E 01 64 6E E2 64 6F 31 8A 64 6E 64 70 31 84 E7 64 71 64 72 03
         73 79 31 8A E7 64 74 62 2C 03 75 EC 64 71 64 72 03 76 79 31 8A EC 64
         74 62 2C 03 75 F1 64 71 64 72 03 77 79 31 8A F1 64 74 62 2C 03 75 64
         1E 64 71 64 72 03 78 79 31 8A 64 1E 64 74 62 2C 03 75 64 23 64 71 64
         72 03 79 79 31 8A 64 23 64 74 62 2C 03 75 64 28 64 71 64 72 03 7A 79
         31 8A 64 28 64 74 62 2C 03 75 64 2D 64 71 64 72 03 7B 79 31 8A 64 2D
         64 74 62 2C 03 75 64 32 64 71 64 72 03 7C 79 31 8A 64 32 64 74 62 2C
         03 75 64 37 64 71 64 72 03 7D 79 31 8A 64 37 64 74 62 2C 03 75 64 3C
         64 71 64 72 03 7E 79 31 8A 64 3C 64 74 62 2C 03 75 64 41 64 71 64 72
         03 7F 79 31 8A 64 41 64 74 62 2C 03 75 64 46 64 71 64 72 03 80 80 79
         31 8A 64 46 64 74 62 2C 03 75 64 4B 64 71 64 72 03 80 81 79 31 8A 64
         4B 64 74 62 2C 03 75 64 50 64 71 64 72 03 80 82 79 31 8A 64 50 64 74
         62 2C 03 75 64 55 64 71 64 72 03 80 83 79 31 8A 64 55 64 74 62 2C 03
         75 64 5A 64 71 64 72 03 80 84 79 31 8A 64 5A 64 74 62 2C 03 75 64 5F
         64 71 64 72 03 80 85 79 31 8A 64 5F 64 74 62 2C 03 75 64 64 64 71 64
         72 03 80 86 79 31 8A 64 64 64 74 62 2C 03 75 64 69 64 71 64 72 03 80
         87 79 31 8A 64 69 64 74 62 2C 03 75 64 6E 64 71 64 72 03 80 88 79 31
         8A 64 6E 64 74 62 2C 03 75 DB 64 80 89 62 2C 03 75 DB 64 80 8A 31 8B
         C6 19 01
        )
   MAKE-FNODE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-FNODE
      #203Y(00 00 00 00 00 00 00 00 80 1B 14 00 00 00 3C 14 3C 13 3C 12 3C 11
            3C 10 3C 0F 3C 0E 3C 0D 3C 0C 3A 0B 03 D7 09 0B 3A 0A 03 D7 09 0A
            3C 09 3C 08 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 ED EE 71 34
            EF AB F0 C2 31 33 EF AB F1 C1 31 33 EF AB F2 C0 31 33 EF AB F3 BF
            31 33 EF AB F4 BE 31 33 EF AB F5 BD 31 33 EF AB 64 1E BC 31 33 EF
            AB 64 1F BB 31 33 EF AB 64 20 BA 31 33 EF AB 64 21 B9 31 33 EF AB
            64 22 B8 31 33 EF AB 64 23 B7 31 33 EF AB 64 24 B6 31 33 EF AB 64
            25 B5 31 33 EF AB 64 26 B4 31 33 EF AB 64 27 B3 31 33 EF AB 64 28
            B2 31 33 EF AB 64 29 B1 31 33 EF AB 64 2A B0 31 33 EF AB 64 2B AF
            31 33 15 19 15
           )
      :NAME :CODE :VENVCONST :VENVC :BLOCKS-OFFSET :BLOCKS :TAGBODYS-OFFSET
      :TAGBODYS :KEYWORD-OFFSET :REQ-ANZ :OPT-ANZ :REST-FLAG :KEYWORD-FLAG
      :KEYWORDS :ALLOW-OTHER-KEYS-FLAG :CONSTS-OFFSET :CONSTS :CONSTS-FORMS
      :ENCLOSING :GF-P 0. #1=(FNODE) 21. FNODE 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
      11. 12. 13. 14. 15. 16. 17. 18. 19. 20.
     )
   FNODE DEFSTRUCT-DESCRIPTION #1#
   (#(NAME (:NAME) 1. (NIL) NIL T NIL) #(CODE (:CODE) 2. (NIL) NIL T NIL)
     #(VENVCONST (:VENVCONST) 3. (NIL) NIL T NIL)
     #(VENVC (:VENVC) 4. (NIL) NIL T NIL)
     #(BLOCKS-OFFSET (:BLOCKS-OFFSET) 5. (NIL) NIL T NIL)
     #(BLOCKS (:BLOCKS) 6. (NIL) NIL T NIL)
     #(TAGBODYS-OFFSET (:TAGBODYS-OFFSET) 7. (NIL) NIL T NIL)
     #(TAGBODYS (:TAGBODYS) 8. (NIL) NIL T NIL)
     #(KEYWORD-OFFSET (:KEYWORD-OFFSET) 9. (NIL) NIL T NIL)
     #(REQ-ANZ (:REQ-ANZ) 10. (NIL . 0.) 0. T NIL)
     #(OPT-ANZ (:OPT-ANZ) 11. (NIL . 0.) 0. T NIL)
     #(REST-FLAG (:REST-FLAG) 12. (NIL) NIL T NIL)
     #(KEYWORD-FLAG (:KEYWORD-FLAG) 13. (NIL) NIL T NIL)
     #(KEYWORDS (:KEYWORDS) 14. (NIL) NIL T NIL)
     #(ALLOW-OTHER-KEYS-FLAG (:ALLOW-OTHER-KEYS-FLAG) 15. (NIL) NIL T NIL)
     #(CONSTS-OFFSET (:CONSTS-OFFSET) 16. (NIL) NIL T NIL)
     #(CONSTS (:CONSTS) 17. (NIL) NIL T NIL)
     #(CONSTS-FORMS (:CONSTS-FORMS) 18. (NIL) NIL T NIL)
     #(ENCLOSING (:ENCLOSING) 19. (NIL) NIL T NIL)
     #(GF-P (:GF-P) 20. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE FNODE-P) FNODE-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN FNODE-P))
     (BLOCK FNODE-P (%STRUCTURE-TYPE-P 'FNODE OBJECT))
   )
   #Y(FNODE-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) FNODE)
   (FUNCTION FNODE-NAME (FNODE) T) (INLINE FNODE-NAME) FNODE-NAME
   (#2=(OBJECT) (DECLARE (IN-DEFUN FNODE-NAME))
     (BLOCK FNODE-NAME (THE T (%STRUCTURE-REF 'FNODE OBJECT 1.)))
   )
   #Y(FNODE-NAME #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE
      1.
     )
   (FUNCTION FNODE-CODE (FNODE) T) (INLINE FNODE-CODE) FNODE-CODE
   (#2# (DECLARE (IN-DEFUN FNODE-CODE))
     (BLOCK FNODE-CODE (THE T (%STRUCTURE-REF 'FNODE OBJECT 2.)))
   )
   #Y(FNODE-CODE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE
      2.
     )
   (FUNCTION FNODE-VENVCONST (FNODE) T) (INLINE FNODE-VENVCONST)
   FNODE-VENVCONST
   (#2# (DECLARE (IN-DEFUN FNODE-VENVCONST))
     (BLOCK FNODE-VENVCONST (THE T (%STRUCTURE-REF 'FNODE OBJECT 3.)))
   )
   #Y(FNODE-VENVCONST #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 3.
     )
   (FUNCTION FNODE-VENVC (FNODE) T) (INLINE FNODE-VENVC) FNODE-VENVC
   (#2# (DECLARE (IN-DEFUN FNODE-VENVC))
     (BLOCK FNODE-VENVC (THE T (%STRUCTURE-REF 'FNODE OBJECT 4.)))
   )
   #Y(FNODE-VENVC #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 4.
     )
   (FUNCTION FNODE-BLOCKS-OFFSET (FNODE) T) (INLINE FNODE-BLOCKS-OFFSET)
   FNODE-BLOCKS-OFFSET
   (#2# (DECLARE (IN-DEFUN FNODE-BLOCKS-OFFSET))
     (BLOCK FNODE-BLOCKS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 5.)))
   )
   #Y(FNODE-BLOCKS-OFFSET
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE 5.
     )
   (FUNCTION FNODE-BLOCKS (FNODE) T) (INLINE FNODE-BLOCKS) FNODE-BLOCKS
   (#2# (DECLARE (IN-DEFUN FNODE-BLOCKS))
     (BLOCK FNODE-BLOCKS (THE T (%STRUCTURE-REF 'FNODE OBJECT 6.)))
   )
   #Y(FNODE-BLOCKS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 6.
     )
   (FUNCTION FNODE-TAGBODYS-OFFSET (FNODE) T) (INLINE FNODE-TAGBODYS-OFFSET)
   FNODE-TAGBODYS-OFFSET
   (#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS-OFFSET))
     (BLOCK FNODE-TAGBODYS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 7.)))
   )
   #Y(FNODE-TAGBODYS-OFFSET
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE 7.
     )
   (FUNCTION FNODE-TAGBODYS (FNODE) T) (INLINE FNODE-TAGBODYS) FNODE-TAGBODYS
   (#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS))
     (BLOCK FNODE-TAGBODYS (THE T (%STRUCTURE-REF 'FNODE OBJECT 8.)))
   )
   #Y(FNODE-TAGBODYS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 8.
     )
   (FUNCTION FNODE-KEYWORD-OFFSET (FNODE) T) (INLINE FNODE-KEYWORD-OFFSET)
   FNODE-KEYWORD-OFFSET
   (#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-OFFSET))
     (BLOCK FNODE-KEYWORD-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 9.)))
   )
   #Y(FNODE-KEYWORD-OFFSET
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE 9.
     )
   (FUNCTION FNODE-REQ-ANZ (FNODE) T) (INLINE FNODE-REQ-ANZ) FNODE-REQ-ANZ
   (#2# (DECLARE (IN-DEFUN FNODE-REQ-ANZ))
     (BLOCK FNODE-REQ-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 10.)))
   )
   #Y(FNODE-REQ-ANZ #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 10.
     )
   (FUNCTION FNODE-OPT-ANZ (FNODE) T) (INLINE FNODE-OPT-ANZ) FNODE-OPT-ANZ
   (#2# (DECLARE (IN-DEFUN FNODE-OPT-ANZ))
     (BLOCK FNODE-OPT-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 11.)))
   )
   #Y(FNODE-OPT-ANZ #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 11.
     )
   (FUNCTION FNODE-REST-FLAG (FNODE) T) (INLINE FNODE-REST-FLAG)
   FNODE-REST-FLAG
   (#2# (DECLARE (IN-DEFUN FNODE-REST-FLAG))
     (BLOCK FNODE-REST-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 12.)))
   )
   #Y(FNODE-REST-FLAG #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 12.
     )
   (FUNCTION FNODE-KEYWORD-FLAG (FNODE) T) (INLINE FNODE-KEYWORD-FLAG)
   FNODE-KEYWORD-FLAG
   (#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-FLAG))
     (BLOCK FNODE-KEYWORD-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 13.)))
   )
   #Y(FNODE-KEYWORD-FLAG
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE 13.
     )
   (FUNCTION FNODE-KEYWORDS (FNODE) T) (INLINE FNODE-KEYWORDS) FNODE-KEYWORDS
   (#2# (DECLARE (IN-DEFUN FNODE-KEYWORDS))
     (BLOCK FNODE-KEYWORDS (THE T (%STRUCTURE-REF 'FNODE OBJECT 14.)))
   )
   #Y(FNODE-KEYWORDS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 14.
     )
   (FUNCTION FNODE-ALLOW-OTHER-KEYS-FLAG (FNODE) T)
   (INLINE FNODE-ALLOW-OTHER-KEYS-FLAG) FNODE-ALLOW-OTHER-KEYS-FLAG
   (#2# (DECLARE (IN-DEFUN FNODE-ALLOW-OTHER-KEYS-FLAG))
     (BLOCK FNODE-ALLOW-OTHER-KEYS-FLAG
       (THE T (%STRUCTURE-REF 'FNODE OBJECT 15.))
   ) )
   #Y(FNODE-ALLOW-OTHER-KEYS-FLAG
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE 15.
     )
   (FUNCTION FNODE-CONSTS-OFFSET (FNODE) T) (INLINE FNODE-CONSTS-OFFSET)
   FNODE-CONSTS-OFFSET
   (#2# (DECLARE (IN-DEFUN FNODE-CONSTS-OFFSET))
     (BLOCK FNODE-CONSTS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 16.)))
   )
   #Y(FNODE-CONSTS-OFFSET
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE 16.
     )
   (FUNCTION FNODE-CONSTS (FNODE) T) (INLINE FNODE-CONSTS) FNODE-CONSTS
   (#2# (DECLARE (IN-DEFUN FNODE-CONSTS))
     (BLOCK FNODE-CONSTS (THE T (%STRUCTURE-REF 'FNODE OBJECT 17.)))
   )
   #Y(FNODE-CONSTS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 17.
     )
   (FUNCTION FNODE-CONSTS-FORMS (FNODE) T) (INLINE FNODE-CONSTS-FORMS)
   FNODE-CONSTS-FORMS
   (#2# (DECLARE (IN-DEFUN FNODE-CONSTS-FORMS))
     (BLOCK FNODE-CONSTS-FORMS (THE T (%STRUCTURE-REF 'FNODE OBJECT 18.)))
   )
   #Y(FNODE-CONSTS-FORMS
      #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE 18.
     )
   (FUNCTION FNODE-ENCLOSING (FNODE) T) (INLINE FNODE-ENCLOSING)
   FNODE-ENCLOSING
   (#2# (DECLARE (IN-DEFUN FNODE-ENCLOSING))
     (BLOCK FNODE-ENCLOSING (THE T (%STRUCTURE-REF 'FNODE OBJECT 19.)))
   )
   #Y(FNODE-ENCLOSING #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      FNODE 19.
     )
   (FUNCTION FNODE-GF-P (FNODE) T) (INLINE FNODE-GF-P) FNODE-GF-P
   (#2# (DECLARE (IN-DEFUN FNODE-GF-P))
     (BLOCK FNODE-GF-P (THE T (%STRUCTURE-REF 'FNODE OBJECT 20.)))
   )
   #Y(FNODE-GF-P #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FNODE
      20.
     )
   SETF-EXPANDER -1.
   #Y(SETF-FNODE-NAME
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-FNODE-CODE
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 2.
     )
   #Y(SETF-FNODE-VENVCONST
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 3.
     )
   #Y(SETF-FNODE-VENVC
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 4.
     )
   #Y(SETF-FNODE-BLOCKS-OFFSET
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 5.
     )
   #Y(SETF-FNODE-BLOCKS
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 6.
     )
   #Y(SETF-FNODE-TAGBODYS-OFFSET
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 7.
     )
   #Y(SETF-FNODE-TAGBODYS
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 8.
     )
   #Y(SETF-FNODE-KEYWORD-OFFSET
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 9.
     )
   #Y(SETF-FNODE-REQ-ANZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 10.
     )
   #Y(SETF-FNODE-OPT-ANZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 11.
     )
   #Y(SETF-FNODE-REST-FLAG
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 12.
     )
   #Y(SETF-FNODE-KEYWORD-FLAG
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 13.
     )
   #Y(SETF-FNODE-KEYWORDS
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 14.
     )
   #Y(SETF-FNODE-ALLOW-OTHER-KEYS-FLAG
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 15.
     )
   #Y(SETF-FNODE-CONSTS-OFFSET
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 16.
     )
   #Y(SETF-FNODE-CONSTS
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 17.
     )
   #Y(SETF-FNODE-CONSTS-FORMS
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 18.
     )
   #Y(SETF-FNODE-ENCLOSING
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 19.
     )
   #Y(SETF-FNODE-GF-P
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 20.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-90 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 8B 19 01)
   FNODE DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *FUNC*) *FUNC*
  )
#Y(#:TOP-LEVEL-FORM-92 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *FUNC-START-LABEL*) *FUNC-START-LABEL*
  )
#Y(#:TOP-LEVEL-FORM-93 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *ANONYMOUS-COUNT*) *ANONYMOUS-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *NO-CODE*) *NO-CODE*
  )
#Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *FORM*) *FORM*
  )
#Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *FOR-VALUE*) *FOR-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-97
   #160Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 62 DE
         72 04 00 31 8A DB 2E 07 E0 30 5E E1 2E 01 E1 E2 E3 31 8A E1 E4 31 84
         E5 30 5E E6 30 5E E7 2E 01 E7 E2 E8 31 8A E7 E9 31 84 EA 30 5E EB 30
         5E EC 2E 01 EC E2 ED 31 8A EC EE 31 84 EF 30 5E F0 30 5E F1 2E 01 F1
         E2 F2 31 8A F1 F3 31 84 E7 F4 F5 03 1E 79 31 8A E7 64 1F 62 2C 03 20
         EC F4 F5 03 21 79 31 8A EC 64 1F 62 2C 03 20 F1 F4 F5 03 22 79 31 8A
         F1 64 1F 62 2C 03 20 DB 64 23 62 2C 03 20 DB 64 24 31 8B C6 19 01
        )
   MK-ANODE REMOVE-OLD-DEFINITIONS
   #Y(MK-ANODE
      #35Y(00 00 00 00 03 00 00 00 00 04 D8 D9 71 34 DA AB DB B1 31 33 DA AB DC
           B0 31 33 DA AB DD AF 31 33 15 19 04
          )
      #1=(ANODE) 4. ANODE 1. 2. 3.
     )
   ANODE DEFSTRUCT-DESCRIPTION #1#
   (#(TYPE (:TYPE) 1. (NIL) NIL T NIL) #(SECLASS (:SECLASS) 2. (NIL) NIL T NIL)
     #(CODE (:CODE) 3. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE ANODE-P) ANODE-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN ANODE-P))
     (BLOCK ANODE-P (%STRUCTURE-TYPE-P 'ANODE OBJECT))
   )
   #Y(ANODE-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) ANODE)
   (FUNCTION ANODE-TYPE (ANODE) T) (INLINE ANODE-TYPE) ANODE-TYPE
   (#2=(OBJECT) (DECLARE (IN-DEFUN ANODE-TYPE))
     (BLOCK ANODE-TYPE (THE T (%STRUCTURE-REF 'ANODE OBJECT 1.)))
   )
   #Y(ANODE-TYPE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) ANODE
      1.
     )
   (FUNCTION ANODE-SECLASS (ANODE) T) (INLINE ANODE-SECLASS) ANODE-SECLASS
   (#2# (DECLARE (IN-DEFUN ANODE-SECLASS))
     (BLOCK ANODE-SECLASS (THE T (%STRUCTURE-REF 'ANODE OBJECT 2.)))
   )
   #Y(ANODE-SECLASS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
      ANODE 2.
     )
   (FUNCTION ANODE-CODE (ANODE) T) (INLINE ANODE-CODE) ANODE-CODE
   (#2# (DECLARE (IN-DEFUN ANODE-CODE))
     (BLOCK ANODE-CODE (THE T (%STRUCTURE-REF 'ANODE OBJECT 3.)))
   )
   #Y(ANODE-CODE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) ANODE
      3.
     )
   SETF-EXPANDER -1.
   #Y(SETF-ANODE-TYPE
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'ANODE 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-ANODE-SECLASS
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'ANODE 2.
     )
   #Y(SETF-ANODE-CODE
      #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'ANODE 3.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 8B 19 01)
   ANODE DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-99 #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-100
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SECLASS-OR
   REMOVE-OLD-DEFINITIONS
   #Y(SECLASS-OR
      #25Y(00 00 00 00 00 00 00 00 01 16 92 01 09 98 01 AC 37 05 31 4E 19 02 C3
           19 02
          )
      (NIL) SECLASS-OR-2
  )  )
#Y(#:TOP-LEVEL-FORM-101
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   SECLASS-OR-2 REMOVE-OLD-DEFINITIONS
   #Y(SECLASS-OR-2
      #52Y(00 00 00 00 02 00 00 00 00 03 93 02 02 21 1F 93 01 02 21 1A 93 02 93
           02 2F 00 14 94 03 02 21 11 94 02 02 21 0C 94 03 94 03 2F 00 5C 19 03
           02 1A 69 02 1A 77
          )
      UNION
  )  )
#Y(#:TOP-LEVEL-FORM-102 #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-103
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ANODELIST-SECLASS-OR REMOVE-OLD-DEFINITIONS
   #Y(ANODELIST-SECLASS-OR
      #42Y(00 00 00 00 01 00 00 00 00 02 98 00 62 AD 1A 0D 93 00 D9 AB DA 71 32
           83 02 16 01 82 00 9B 20 70 16 01 AA 30 A8 16 01 9A 00 02
          )
      SECLASS-OR ANODE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-104
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   SECLASS-WITHOUT REMOVE-OLD-DEFINITIONS
   #Y(SECLASS-WITHOUT
      #55Y(00 00 00 00 02 00 00 00 00 03 00 2A 01 7E 02 00 00 AA 6C 00 01 93 04
           02 21 17 AA 93 05 37 05 31 52 14 94 05 02 21 0D AB 94 06 37 05 31 52
           5C 19 05 02 1A 6D 02 1A 77
          )
      #Y(SECLASS-WITHOUT-BOUND
         #20Y(00 00 00 00 01 00 00 00 00 02 AB 68 00 01 37 03 30 B8 19 02) NIL
  )  )  )
#Y(#:TOP-LEVEL-FORM-105
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ANODES-COMMUTE REMOVE-OLD-DEFINITIONS
   #Y(ANODES-COMMUTE
      #24Y(00 00 00 00 02 00 00 00 00 03 D8 AD D9 71 32 D8 AD D9 71 32 2F 02 19
           03
          )
      ANODE 2. SECLASSES-COMMUTE
  )  )
#Y(#:TOP-LEVEL-FORM-106
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   SECLASSES-COMMUTE REMOVE-OLD-DEFINITIONS
   #Y(SECLASSES-COMMUTE
      #28Y(00 00 00 00 02 00 00 00 00 03 93 02 94 02 C3 33 1E 08 93 01 94 03 C3
           33 19 03 19 03
          )
      #Y(SECLASSES-COMMUTE-DISJOINT-P
         #39Y(00 00 00 00 02 00 00 00 00 03 9D 58 1D 17 9C 58 1D 13 AC 02 59 58
              1E 0D AB 02 59 58 1E 07 AC AC 2F 00 58 19 03 19 03
             )
         INTERSECTION
  )  )  )
#Y(#:TOP-LEVEL-FORM-107
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   GET-FUNNAME-STRING+PACK REMOVE-OLD-DEFINITIONS
   #Y(GET-FUNNAME-STRING+PACK
      #45Y(00 00 00 00 01 00 00 00 00 02 9C 1F 1A D8 D9 93 03 71 8E DA A0 5B 77
           71 8E DB 72 05 25 9D 5B 5A 14 71 8C 3F 02 19 02 AB 71 8E 9D 1A 73
          )
      STRING "(" " " ")"
  )  )
#Y(#:TOP-LEVEL-FORM-108
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   SYMBOL-SUFFIX REMOVE-OLD-DEFINITIONS
   #Y(SYMBOL-SUFFIX
      #78Y(00 00 00 00 02 00 00 00 00 03 AC 8E 09 08 AC 8D 8C 04 AB 87 00 29 AC
           2E 01 41 02 AD 8D 09 23 AD 8D 0A 0D AD 37 0B 7C 06 C5 FA 7C 05 14 7F
           8A 03 DB AC DC B0 72 03 25 91 01 0E AA 30 CF 19 06 9C 19 03 AD 80 8E
           03 1A 68 AA AC 30 D8 19 06
          )
      FUNCTION-NAME-P GET-FUNNAME-STRING+PACK 10. STRING "-"
  )  )
#Y(#:TOP-LEVEL-FORM-109
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-COMMENT
   REMOVE-OLD-DEFINITIONS
   #Y(C-COMMENT
      #35Y(00 00 00 00 01 00 00 00 01 17 0E 00 1B 09 0E 02 14 91 00 07 00 19 04
           0E 01 1A 75 98 03 AB AF A0 9A 02 04
          )
      *COMPILE-VERBOSE* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-110
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-SOURCE-LOCATION REMOVE-OLD-DEFINITIONS
   #Y(C-SOURCE-LOCATION
      #55Y(00 00 00 00 00 00 00 00 00 01 0E 00 1C 08 0E 01 1C 04 0E 02 1B 08 CE
           19 01 DB DC C8 1A 0C 62 6A 01 6A 02 8F 01 2D 72 DF E0 CC 14 6D 03 06
           6A 01 6A 02 2C 04 0A 19 01
          )
      *COMPILING-FROM-FILE* *COMPILE-FILE-LINENO1* *COMPILE-FILE-LINENO2*
      " in line ~D" " in Zeile ~D" " dans la ligne ~D" LANGUAGE
      " in lines ~D..~D" " in Zeilen ~D..~D" " dans les lignes ~D..~D" FORMAT
      ""
  )  )
#Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *WARNING-COUNT*) *WARNING-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-112
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-WARN
   REMOVE-OLD-DEFINITIONS
   #Y(C-WARN
      #80Y(00 00 00 00 01 00 00 00 01 17 D8 D9 DA DB 6D 03 04 AE 81 02 25 02 6A
           05 31 99 0F 05 0E 06 1B 09 0E 08 14 91 00 07 00 19 04 0E 07 1A 75 98
           09 AB AF E2 8C 53 13 6A 0A E3 AB 31 36 16 01 1C 09 6A 0A E3 AB E4 31
           32 16 01 14 2D 0D 14 A2 9A 04 04
          )
      STRING "~%WARNING~@[ in function ~S~]~A :~%"
      "~%WARNUNG~@[ in Funktion ~S~]~A :~%"
      "~%AVERTISSEMENT~@[ dans la fonction ~S~]~A :~%" LANGUAGE *WARNING-COUNT*
      *COMPILE-WARNINGS* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT *FUNC*
      FNODE 1. C-SOURCE-LOCATION
  )  )
#Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *ERROR-COUNT*) *ERROR-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-114
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-ERROR
   REMOVE-OLD-DEFINITIONS
   #Y(C-ERROR
      #83Y(00 00 00 00 01 00 00 00 01 17 6A 00 31 99 0F 00 D9 8C 53 13 6A 01 DA
           AB 31 36 16 01 1C 09 6A 01 DA AB DB 31 32 16 01 14 92 00 0D 0E 04 1C
           09 AA 6A 05 37 03 30 BC 0F 05 6A 06 DF E0 E1 6D 03 0A AC 2D 0B 14 B1
           B1 2C 06 0C 16 01 E5 E6 E7 E8 2C 03 11 51
          )
      *ERROR-COUNT* *FUNC* FNODE 1. *COMPILING-FROM-FILE*
      *FUNCTIONS-WITH-ERRORS* *C-ERROR-OUTPUT*
      "~%ERROR~@[ in function ~S~]~A :~%~?"
      "~%ERROR~@[ in Funktion ~S~]~A :~%~?"
      "~%ERREUR~@[ dans la fonction ~S~]~A :~%~?" LANGUAGE C-SOURCE-LOCATION
      FORMAT C-ERROR ERROR (NIL) ((NIL)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-115
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-EVAL-WHEN-COMPILE REMOVE-OLD-DEFINITIONS
   #Y(C-EVAL-WHEN-COMPILE
      #37Y(00 00 00 00 01 00 00 00 00 02 0E 00 1C 12 0E 01 1C 0E 6A 01 30 90 AB
           37 0C 7D 02 F6 6A 01 30 85 AB 30 5F 19 02
          )
      *COMPILING-FROM-FILE* *LIBOUTPUT-STREAM*
  )  )
#Y(#:TOP-LEVEL-FORM-116
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-CONSTANTP REMOVE-OLD-DEFINITIONS
   #Y(C-CONSTANTP
      #88Y(00 00 00 00 01 00 00 00 00 02 9C 1F 1B 93 01 C5 59 1E 80 42 94 01 31
           07 1E 3C 9C 5B 5B 58 19 02 02 19 02 AB 30 62 19 02 AB 31 0B 1D 29 AB
           31 1F 1D 24 AB 31 0A 1D 1F AB 31 25 1D 1A AB 31 09 1E 15 AB 8D 8F 5B
           AB 71 8C 0E 00 21 57 AB 6A 01 37 03 30 BF 58 1A 47 19 02
          )
      *LISP-PACKAGE* *CONSTANT-SPECIAL-VARS* QUOTE
  )  )
#Y(#:TOP-LEVEL-FORM-117
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
   #Y(C-CONSTANT-VALUE
      #70Y(00 00 00 00 01 00 00 00 00 02 9C 20 34 AB 8D 0B 14 AB 8D 1F 10 AB 8D
           0A 0C AB 8D 25 08 AB 8E 09 1D AB 8E 8F 08 9C 19 02 AB 30 52 19 02 AB
           71 8C 0E 00 21 74 AB 6A 01 37 03 30 BF 5B 19 02 00 19 02 9C 5B 5A 19
           02
          )
      *LISP-PACKAGE* *CONSTANT-SPECIAL-VARS*
  )  )
#Y(#:TOP-LEVEL-FORM-118
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ANODE-CONSTANTP REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANTP
      #67Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA 31 07 1E 2D 9B 5B 58
           1E 28 93 00 9B 20 08 D8 AB 8D 36 17 00 19 04 93 00 C5 59 1E 13 9B 5B
           77 DA AB D9 80 32 00 C6 59 58 19 04 AA 28 01 05 4B 19 04 19 03
          )
      ANODE 3. CONST :FORM
  )  )
#Y(#:TOP-LEVEL-FORM-119
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ANODE-CONSTANT REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANT
      #29Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 77 9B 20 05 AA 28 01 04
           72 9B 5B 5A 19 03
          )
      ANODE 3.
  )  )
#Y(#:TOP-LEVEL-FORM-120
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ANODE-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANT-VALUE
      #20Y(00 00 00 00 01 00 00 00 00 02 AB 6E 00 D9 AB DA 31 32 19 03)
      ANODE-CONSTANT CONST 1.
  )  )
#Y(#:TOP-LEVEL-FORM-121
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NEW-CONST
   REMOVE-OLD-DEFINITIONS
   #Y(NEW-CONST #19Y(00 00 00 00 01 00 00 00 00 02 D8 D9 D9 AE 2C 04 02 19 02)
      :HORIZONT :VALUE MAKE-CONST
  )  )
#Y(#:TOP-LEVEL-FORM-122
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-LABEL
   REMOVE-OLD-DEFINITIONS
   #Y(MAKE-LABEL
      #26Y(00 00 00 00 01 00 00 00 00 02 37 01 71 92 AA 62 30 56 AA D8 AE 31 8A
           15 19 02
          )
      FOR-VALUE
  )  )
#Y(#:TOP-LEVEL-FORM-123
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   MAKE-SPECIAL-VAR REMOVE-OLD-DEFINITIONS
   #Y(MAKE-SPECIAL-VAR
      #43Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 63 DA B0 6E 03 DC B2 87 03 07
           00 14 2C 08 0B 19 02 DD DE DF B5 6E 08 E1 B7 2C 06 0A 1A 6D
          )
      :NAME :SPECIALP :CONSTANTP C-CONSTANTP :CONSTANT :HORIZONT :ALL :VALUE
      C-CONSTANT-VALUE :FORM MAKE-CONST MAKE-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-124
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) TEST-LIST
   REMOVE-OLD-DEFINITIONS
   #Y(TEST-LIST
      #85Y(00 00 00 00 01 00 02 00 00 0D 3A 02 02 C3 F8 3C 01 AD 8E 0E 08 AD 37
           01 30 A1 5B 1C 09 D9 DA DB 6D 03 04 AE 2F 05 AD 71 4A AD 90 01 32 0E
           92 01 08 AD 71 4A AC 90 01 31 11 00 19 04 DE DF E0 6D 03 04 AE 2F 05
           92 01 71 1A 67 E1 E2 E3 6D 03 04 AE 2F 05 19 04
          )
      0. "Code contains dotted list ~S" "Dotted list im Code: ~S"
      "Paire pointΘe dans le code en ~S" LANGUAGE C-ERROR
      "Form too short, too few arguments: ~S"
      "Form zu kurz (zu wenig Argumente): ~S"
      "Forme trop courte (trop peu d'arguments) : ~S"
      "Form too long, too many arguments: ~S"
      "Form zu lang (zu viele Argumente): ~S"
      "Forme trop longue (trop d'arguments) : ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-125
   #72Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 DA DB C7 79 DD C9 79
        CA 7B 04 AA 1A 0F 93 00 93 00 94 01 AB B0 AC 30 69 16 03 82 00 9B 20 6E
        16 02 E0 8C 62 0B AA E0 70 52 8D 04 04 E0 E1 2F 0A E0 AB 31 85 CB 19 02
       )
   #.#'EQ #1=(QUOTE . C-QUOTE) #2=(PROGN . C-PROGN) LET
   #Y(#:TOP-LEVEL-FORM-125-1 #15Y(00 00 00 00 00 00 00 00 00 01 62 2E 00 19 01)
      C-LET/LET*
     )
   LET*
   #Y(#:TOP-LEVEL-FORM-125-2 #15Y(00 00 00 00 00 00 00 00 00 01 63 2E 00 19 01)
      C-LET/LET*
     )
   #3=((IF . C-IF) (SETQ . C-SETQ) (BLOCK . C-BLOCK)
        (RETURN-FROM . C-RETURN-FROM) (TAGBODY . C-TAGBODY) (GO . C-GO)
        (FUNCTION . C-FUNCTION) (MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND)
        (MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ) (AND . C-AND) (OR . C-OR)
        (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND) (PSETQ . C-PSETQ)
        (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
        (PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
        (UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
        (MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
        (MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET)
        (LABELS . C-LABELS) (MACROLET . C-MACROLET)
        (SYMBOL-MACROLET . C-SYMBOL-MACROLET) (COMPILER-LET . C-COMPILER-LET)
        (EVAL-WHEN . C-EVAL-WHEN) (DECLARE . C-DECLARE)
        (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE) (LOCALLY . C-LOCALLY)
        (CASE . C-CASE) (%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
        (%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
        (CLOS:GENERIC-FLET . C-GENERIC-FLET)
        (CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
        (HANDLER-BIND . C-HANDLER-BIND) (%HANDLER-BIND . C-HANDLER-BIND)
        (CONSTANT-EQL . C-CONSTANT-EQL) (FUNCALL . C-FUNCALL)
        (%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
        (SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL)
        (MAPCAR . C-MAPCAR) (MAPLIST . C-MAPLIST) (MAPC . C-MAPC)
        (MAPL . C-MAPL) (MAPCAN . C-MAPCAN) (MAPCON . C-MAPCON)
        (MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
        (FORMAT . C-FORMAT) (REMOVE-IF . C-REMOVE-IF)
        (REMOVE-IF-NOT . C-REMOVE-IF-NOT) (DELETE-IF . C-DELETE-IF)
        (DELETE-IF-NOT . C-DELETE-IF-NOT) (SUBSTITUTE-IF . C-SUBSTITUTE-IF)
        (SUBSTITUTE-IF-NOT . C-SUBSTITUTE-IF-NOT)
        (NSUBSTITUTE-IF . C-NSUBSTITUTE-IF)
        (NSUBSTITUTE-IF-NOT . C-NSUBSTITUTE-IF-NOT) (FIND-IF . C-FIND-IF)
        (FIND-IF-NOT . C-FIND-IF-NOT) (POSITION-IF . C-POSITION-IF)
        (POSITION-IF-NOT . C-POSITION-IF-NOT) (COUNT-IF . C-COUNT-IF)
        (COUNT-IF-NOT . C-COUNT-IF-NOT) (SUBST-IF . C-SUBST-IF)
        (SUBST-IF-NOT . C-SUBST-IF-NOT) (NSUBST-IF . C-NSUBST-IF)
        (NSUBST-IF-NOT . C-NSUBST-IF-NOT) (MEMBER-IF . C-MEMBER-IF)
        (MEMBER-IF-NOT . C-MEMBER-IF-NOT) (ASSOC-IF . C-ASSOC-IF)
        (ASSOC-IF-NOT . C-ASSOC-IF-NOT) (RASSOC-IF . C-RASSOC-IF)
        (RASSOC-IF-NOT . C-RASSOC-IF-NOT)
      )
   C-FORM-TABLE
   (DEFCONSTANT C-FORM-TABLE
     (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
       (MAPC
         #'(LAMBDA (ACONS) (SETF (GETHASH (CAR ACONS) HASHTABLE) (CDR ACONS)))
         `((QUOTE . C-QUOTE) (PROGN . C-PROGN)
            (LET . ,#'(LAMBDA NIL (C-LET/LET* NIL)))
            (LET* . ,#'(LAMBDA NIL (C-LET/LET* T))) (IF . C-IF) (SETQ . C-SETQ)
            (BLOCK . C-BLOCK) (RETURN-FROM . C-RETURN-FROM)
            (TAGBODY . C-TAGBODY) (GO . C-GO) (FUNCTION . C-FUNCTION)
            (MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND)
            (MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ) (AND . C-AND)
            (OR . C-OR) (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND)
            (PSETQ . C-PSETQ) (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL)
            (PROG1 . C-PROG1) (PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH)
            (THROW . C-THROW) (UNWIND-PROTECT . C-UNWIND-PROTECT)
            (PROGV . C-PROGV) (MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
            (MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET)
            (LABELS . C-LABELS) (MACROLET . C-MACROLET)
            (SYMBOL-MACROLET . C-SYMBOL-MACROLET)
            (COMPILER-LET . C-COMPILER-LET) (EVAL-WHEN . C-EVAL-WHEN)
            (DECLARE . C-DECLARE) (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE)
            (LOCALLY . C-LOCALLY) (CASE . C-CASE)
            (%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
            (%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
            (CLOS:GENERIC-FLET . C-GENERIC-FLET)
            (CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
            (HANDLER-BIND . C-HANDLER-BIND) (%HANDLER-BIND . C-HANDLER-BIND)
            (CONSTANT-EQL . C-CONSTANT-EQL) (FUNCALL . C-FUNCALL)
            (%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
            (SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL)
            (MAPCAR . C-MAPCAR) (MAPLIST . C-MAPLIST) (MAPC . C-MAPC)
            (MAPL . C-MAPL) (MAPCAN . C-MAPCAN) (MAPCON . C-MAPCON)
            (MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
            (FORMAT . C-FORMAT) (REMOVE-IF . C-REMOVE-IF)
            (REMOVE-IF-NOT . C-REMOVE-IF-NOT) (DELETE-IF . C-DELETE-IF)
            (DELETE-IF-NOT . C-DELETE-IF-NOT) (SUBSTITUTE-IF . C-SUBSTITUTE-IF)
            (SUBSTITUTE-IF-NOT . C-SUBSTITUTE-IF-NOT)
            (NSUBSTITUTE-IF . C-NSUBSTITUTE-IF)
            (NSUBSTITUTE-IF-NOT . C-NSUBSTITUTE-IF-NOT) (FIND-IF . C-FIND-IF)
            (FIND-IF-NOT . C-FIND-IF-NOT) (POSITION-IF . C-POSITION-IF)
            (POSITION-IF-NOT . C-POSITION-IF-NOT) (COUNT-IF . C-COUNT-IF)
            (COUNT-IF-NOT . C-COUNT-IF-NOT) (SUBST-IF . C-SUBST-IF)
            (SUBST-IF-NOT . C-SUBST-IF-NOT) (NSUBST-IF . C-NSUBST-IF)
            (NSUBST-IF-NOT . C-NSUBST-IF-NOT) (MEMBER-IF . C-MEMBER-IF)
            (MEMBER-IF-NOT . C-MEMBER-IF-NOT) (ASSOC-IF . C-ASSOC-IF)
            (ASSOC-IF-NOT . C-ASSOC-IF-NOT) (RASSOC-IF . C-RASSOC-IF)
            (RASSOC-IF-NOT . C-RASSOC-IF-NOT)
       )  )
       HASHTABLE
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 E8 00 19 01)
   #Y(#:TOP-LEVEL-FORM-126-1
      #30Y(00 00 00 00 01 00 00 00 00 02 AB 8C 55 08 AB 6A 00 37 01 8C 68 03 00
           19 02 D8 2E 01 19 02
          )
      C-FORM-TABLE COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-127
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-FORM
   REMOVE-OLD-DEFINITIONS
   #Y(C-FORM
      #372Y(02 00 01 00 01 00 01 00 00 08 9D 10 00 3A 04 02 0E 01 10 01 C5 4F
            81 48 0E 00 20 80 89 6A 00 8E 09 22 6A 00 6A 03 2F 04 41 02 91 01
            0A 6A 00 2E 05 16 02 50 1A 81 29 AA 37 01 27 4E 1A 73 2D 08 50 1A
            81 1C 6A 00 8D 0B 75 6A 00 8D 1F 70 6A 00 8D 0A 6B 6A 00 8D 25 66
            DE 70 D0 6A 07 70 D4 37 03 8B B8 5A E1 E2 E3 6D 03 0C 6A 00 2F 02
            50 1A 80 EE AE 8B 55 09 AE 8B 5B 05 AE 87 10 80 68 AA 35 00 1A 80
            65 6A 00 6A 03 6A 12 72 02 00 70 5D 37 01 27 FF 75 1A 80 52 AE 6A
            13 00 79 0E 00 78 2C 03 19 1A 80 44 0E 00 77 AA 88 0D 80 9B AA 2E
            0E 41 03 91 02 3A AD 6A 0F 37 01 70 68 91 00 FF B1 AE 8E 09 05 AE
            8B 5B FF BB AE 6A 13 EC AB ED 80 32 00 8E 05 11 AE 87 10 0D EE AF
            7A 02 6A 17 F0 37 02 8B B8 FF B1 AE 2E 11 16 05 50 1A 80 70 9D 25
            1A 27 6A 00 6A 03 6A 12 72 02 00 70 5D 37 01 27 FF 06 1A 18 F3 AE
            7A 02 0E 00 78 2F 1C 1A 0D AD AB 0E 00 78 2C 03 19 1A 03 F5 2E 1E
            16 04 50 1A 3D 64 20 F3 AC 7A 02 0E 00 5B 7B 02 37 01 27 FE D7 1A
            28 64 24 AB 64 26 62 31 33 64 24 AB 64 25 64 27 31 33 15 1A 27 9B
            1F 05 93 00 23 1F 52 64 21 64 22 64 23 6D 03 0C AB 2F 02 16 01 50
            14 0E 01 1B 0A 64 24 AB 64 25 31 32 5B 1C 46 15 12 02 19 03
           )
      *FORM* *FOR-VALUE* C-ERROR *VENV* VENV-SEARCH-MACRO C-VAR "COMMON-LISP"
      *PACKAGE* C-CONST "Invalid form: ~S" "Das ist keine gⁿltige Form: ~S"
      "Forme invalide : ~S" LANGUAGE FUNCTION-NAME-P FENV-SEARCH C-FORM-TABLE
      DECLARED-NOTINLINE C-GLOBAL-FUNCTION-CALL *FENV* *FUNC* FNODE 1. IN-DEFUN
      *DENV* #.#'EQUAL C-LOCAL-FUNCTION-CALL
      #S(HASH-TABLE EQ (LOCAL . 30.) (GLOBAL . 19.) (MACRO . 1.)) FUNCTION
      C-FUNCALL-NOTINLINE C-FORM COMPILER-ERROR LAMBDA %FUNCALL
      "Not the name of a function: ~S"
      "Das ist nicht der Name einer Funktion: ~S"
      "Ceci n'est pas le nom d'une fonction : ~S" ANODE 2. 3. (NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-128
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   MACROEXPAND-FORM REMOVE-OLD-DEFINITIONS
   #Y(MACROEXPAND-FORM
      #91Y(00 00 00 00 01 00 00 00 00 02 9C 1F 33 93 01 AA 88 02 80 42 AA 6E 03
           91 00 10 AB 8E 09 0C AB 8C 5B 08 AB 6A 04 37 01 8C 68 04 AA 24 05 24
           AD 6A 00 6A 06 72 02 00 30 5D F9 16 02 1A 4D 9B 1A 78 AB 8E 09 14 AB
           6A 00 2F 01 41 02 91 01 6F 16 02 1A 06 16 02 1A 02 16 01 9C 19 02
          )
      *VENV* VENV-SEARCH-MACRO FUNCTION-NAME-P FENV-SEARCH C-FORM-TABLE MACRO
      *FENV*
  )  )
#Y(#:TOP-LEVEL-FORM-129
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-NIL
   REMOVE-OLD-DEFINITIONS
   #Y(C-NIL #18Y(00 00 00 00 00 00 00 00 00 01 62 D8 D9 2C 03 02 19 01) (NIL)
      ((NIL)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-130
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-CONST
   REMOVE-OLD-DEFINITIONS
   #Y(C-CONST
      #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 D8 6A 02 6E 03 7A 02 7A 01 2C 03
           04 19 01
          )
      CONST (NIL) *FORM* NEW-CONST MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-131
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-VAR
   REMOVE-OLD-DEFINITIONS
   #Y(C-VAR
      #321Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 41 03 91 02 19 D9 DA DB 6D
            03 04 AF 2F 05 0E 06 1C 0A AE 6A 07 E0 37 02 30 BC 0F 07 CC F8 9D
            25 0A 81 0A B0 60 01 1A 25 D4 1A 07 E7 E8 B3 8D 8F 77 D5 14 E9 B5
            6E 13 EC B7 2C 06 15 1A 1E AE 6E 0B E4 0E 0D 1C 06 E4 AC E6 8E 32
            57 00 14 00 79 0E 0D 1C 0F E4 AD E6 8D 32 51 EE A3 14 7A 02 60 01
            1A 01 00 14 2C 03 17 19 06 02 1A 19 E7 AE 6E 18 7A 02 F1 E7 AF 6E
            18 7A 02 03 1A 61 03 1A 0E E4 0E 0D 1B 65 00 14 00 79 0E 0D 1B 60
            00 14 2C 03 17 19 05 AC 60 01 1A 17 F3 AE 6A 1C 6A 1D 7A 04 60 01
            1A 13 16 01 1A 80 80 E4 0E 0D 1B 65 00 14 00 79 0E 0D 1B 62 00 14
            6D 03 17 AA E4 AE 64 1E 31 32 79 E4 AE 64 1E AD 31 33 16 01 0E 0D
            1C 80 58 0E 1F 1B 80 53 E4 AD 64 20 63 31 33 E4 AD 64 21 71 32 6E
            22 0E 23 21 07 E4 AD 64 24 63 31 33 E4 AD 64 24 8E 32 32 6A 1C 92
            00 25 AA E4 AF 64 25 31 32 21 FF 9E 93 00 64 26 AB 31 36 16 01 1C
            0B 93 00 64 26 AB E6 63 31 33 16 01 82 00 91 00 5B 64 27 64 28 2F
            29 16 01 15 19 05 64 27 D8 2F 29 19 05
           )
      VENV-SEARCH
      "~S is neither declared nor bound,~@
                        it will be treated as if it were declared SPECIAL."
      "~S ist weder deklariert noch gebunden,~@
                        behandle es als SPECIAL-deklarierte Variable."
      "~S n'est ni dΘclarΘ ni liΘ,~@
                         et va Ωtre traitΘ comme Θtant dΘclarΘ SPECIAL."
      LANGUAGE C-WARN *COMPILING-FROM-FILE* *UNKNOWN-FREE-VARS* #.#'EQ SPECIAL
      #S(HASH-TABLE EQ (T . 137.) (LOCAL . 95.) (SPECIAL . 29.))
      MAKE-SPECIAL-VAR VAR *FOR-VALUE* 3. CONST :HORIZONT :VALUE :ALL
      C-CONSTANT-VALUE :FORM MAKE-CONST GETVALUE MK-ANODE NEW-CONST (PUSH)
      ((SVREF)) GET *VENVC* *STACKZ* 5. *NO-CODE* 6. 10. STACKZ-FUN *FUNC* 9.
      11. FNODE C-VAR "INVISIBLE" COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-132
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-VARSET
   REMOVE-OLD-DEFINITIONS
   #Y(C-VARSET
      #282Y(00 00 00 00 03 00 00 00 00 04 AD 2E 00 41 03 91 02 0B D9 DA DB 6D
            03 04 B1 2F 05 C9 F8 9D 25 07 80 F1 00 1A 1A E4 E5 E6 6D 03 04 B4
            2F 05 D2 1A 1B B0 6E 08 E1 62 E2 AD E3 8D 32 66 B3 60 01 79 E2 AD
            E3 8D 32 5F E8 B4 7A 02 60 01 14 2C 03 11 19 08 E1 62 02 79 EA EB
            AF 6E 14 7A 02 ED EB B0 6E 14 7A 02 03 16 7B 04 2C 03 11 19 07 E2
            AD F2 63 31 33 0E 1B 1C 26 1A 80 96 16 01 1A 80 7C E1 62 AD 60 01
            79 EF AE 6A 18 6A 19 7A 04 7A 01 6D 03 11 E2 AD F2 8E 32 55 0E 1B
            1B 80 73 E2 AD E3 62 31 33 B0 AB A2 7B 02 AA E2 AF F4 31 32 79 E2
            AF F4 AD 31 33 16 02 E2 AD F5 71 32 6E 1E 0E 1F 21 39 E2 AD 64 20
            63 31 33 6A 18 92 00 25 AA E2 AF 64 21 31 32 21 FF A2 93 00 64 22
            AB 31 36 16 01 1C 0B 93 00 64 22 AB E3 63 31 33 16 01 82 00 91 00
            5B 64 23 64 24 2F 25 16 01 64 26 E2 AE 64 27 71 32 37 05 71 55 E2
            AE 64 27 AD 31 33 16 01 15 19 07 64 23 D8 2F 25 19 07
           )
      VENV-SEARCH
      "~S is neither declared nor bound,~@
                        it will be treated as if it were declared SPECIAL."
      "~S ist weder deklariert noch gebunden,~@
                        behandle es als SPECIAL-deklarierte Variable."
      "~S n'est ni dΘclarΘ ni liΘ,~@
                         et va Ωtre traitΘ comme Θtant dΘclarΘ SPECIAL."
      LANGUAGE C-WARN SPECIAL
      #S(HASH-TABLE EQ (T . 95.) (LOCAL . 50.) (SPECIAL . 17.))
      MAKE-SPECIAL-VAR VARSET VAR 3.
      "The constant ~S may not be assigned to.~@
                                                  The assignment will be ignored."
      "Der Konstante ~S kann nicht zugewiesen werden.~@
                                                  Die Zuweisung wird ignoriert."
      "Rien ne peut Ωtre assignΘ α la constante ~S.~@
                                                   L'assignation est ignorΘe."
      ((VALUES1)) SETVALUE MK-ANODE (PUSH) CONST NEW-CONST (PUSH) ((SVSET)) SET
      *VENVC* *STACKZ* 5. *NO-CODE* 7. 10. STACKZ-FUN *FUNC* 9. 11. FNODE
      C-VARSET "INVISIBLE" COMPILER-ERROR
      #Y(C-VARSET-1
         #23Y(00 00 00 00 01 00 00 00 00 02 93 01 D8 AB D9 71 32 6A 02 30 BB 19
              03
             )
         VAR 10. *STACKZ*
        )
      8.
  )  )
#Y(#:TOP-LEVEL-FORM-133
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   MAKE-FUNNAME-CONST REMOVE-OLD-DEFINITIONS
   #Y(MAKE-FUNNAME-CONST
      #40Y(00 00 00 00 01 00 00 00 00 02 9C 1F 16 9C 5B 77 D9 DA DB AD 6E 04 DD
           DC DE B1 7A 02 7A 02 2C 06 07 19 03 AB 2E 00 19 02
          )
      NEW-CONST :HORIZONT :ALL :VALUE GET-SETF-SYMBOL :FORM QUOTE MAKE-CONST
  )  )
#Y(#:TOP-LEVEL-FORM-134
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-NORMAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-NORMAL-FUNCTION-CALL
      #99Y(00 00 00 00 01 00 00 00 00 02 6A 00 D9 2F 02 0E 00 78 71 4A 0E 03 10
           03 0E 00 78 DC 7A 01 92 01 19 93 01 82 02 AA DD 6F 06 AA 83 02 DF 83
           02 D9 0E 03 5C 0F 03 16 02 91 01 67 A0 25 08 09 CC 1A 0A CD 1A 07 CE
           1A 04 E4 B0 60 02 14 B2 6E 0D 7A 01 72 02 23 83 00 E4 E6 AC 71 4C 2C
           03 0F 16 02 11 19 03
          )
      *FORM* 1. TEST-LIST *STACKZ* (CALLP) ONE C-FORM (PUSH)
      #S(HASH-TABLE EQ (2. . 7.) (1. . 4.) (0. . 1.)) (CALL0) (CALL1) (CALL2)
      CALL MAKE-FUNNAME-CONST (T . T) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-135
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   FDESCR-SIGNATURE REMOVE-OLD-DEFINITIONS
   #Y(FDESCR-SIGNATURE
      #86Y(00 00 00 00 01 00 00 00 00 02 9C 5B 1B 3C 93 01 DA AB DB 71 32 DA AC
           DC 71 32 DA AD DD 71 32 DA AE DE 71 32 DA AF DF 71 32 DA B0 E0 71 32
           3F 06 19 03 9C 5B 5B 43 41 0D B6 71 4A B6 71 4A B4 C4 59 58 14 B4 B4
           B1 3F 06 19 0F 9C 5B 77 23 00 62 9C 5B 5B 43 19 02
          )
      LABELS 0. FNODE 10. 11. 12. 13. 14. 15.
  )  )
#Y(#:TOP-LEVEL-FORM-136
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   TEST-ARGUMENT-SYNTAX REMOVE-OLD-DEFINITIONS
   #Y(TEST-ARGUMENT-SYNTAX
      #257Y(00 00 00 00 09 00 00 00 00 00 B3 8E 0E 08 B3 37 01 30 A1 5B 1C 0B
            D8 D9 DA 6D 03 03 B2 B5 2C 03 04 B3 71 4A B1 B1 72 02 35 91 0A 06
            B2 AC 90 01 31 37 91 06 09 91 05 06 AB AB 90 01 31 2B 92 05 80 40
            AB AB 8F 01 31 3D 91 06 3D AB AB 81 01 36 01 AA B6 7F A0 0B AB 8D
            98 80 63 E4 E5 E6 6D 03 03 B4 B7 2C 03 08 00 19 0C DD DE DF 6D 03
            03 B4 AD B7 91 0A 01 A4 14 B7 B0 71 04 B8 B1 2C 08 08 1A 64 CC 19
            0C CD 19 0C CE 19 0C CE 19 10 E9 EA EB 6D 03 03 93 04 B9 2C 03 08
            CE 19 10 CE 19 10 7D 02 92 02 80 41 1A 80 48 EE EF F0 6D 03 03 AB
            B8 B4 71 4A 03 19 59 14 B5 2C 05 04 19 0F B5 AE 62 92 02 36 93 02
            AA 88 0F 41 AA 2E 10 F6 14 8E 8F FF BB AA 24 14 0D 9E 5B 77 88 0F
            40 9E 5B 77 87 10 FF BC 91 02 0A AA B3 ED 37 02 8B B8 02 9B F7 16
            01 9D 5B 5B F8 91 02 4A 91 00 FF AB CD 19 0F
           )
      "argument list to function ~S is dotted: ~S"
      "Argumentliste zu Funktion ~S ist dotted: ~S"
      "Liste pointΘe d'arguments pour la fonction ~S : ~S" LANGUAGE C-ERROR
      "~S called with ~S~:[~; or more~] arguments, but it requires ~
                        ~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
      "~S mit ~S~:[~; oder mehr~] Argumenten aufgerufen, braucht aber ~
                        ~:[~:[~S bis ~S~;~S~]~;mindestens ~*~S~] Argumente."
      "~S est appelΘ avec ~S~[; ou plus~] d'arguments mais a besoin ~
                         ~:[de ~:[~S α ~S~;~S~]~;d'au moins ~*~S~] arguments."
      C-WARN NO-KEYS STATIC-KEYS DYNAMIC-KEYS
      "keyword arguments to function ~S should occur pairwise: ~S"
      "Keyword-Argumente zu Funktion ~S sind nicht paarig: ~S"
      "Les arguments de genre mot-clΘ pour la fonction ~S ne sont pas par paires : ~S"
      C-CONSTANTP C-CONSTANT-VALUE
      "argument ~S to function ~S is not a keyword"
      "Das Argument ~S zu Funktion ~S ist kein Keyword."
      "L'argument ~S pour la fonction ~S n'est pas un mot-clΘ."
      :ALLOW-OTHER-KEYS #.#'EQ
      "keyword ~S is not allowed for function ~S.~
                              ~%The only allowed keyword~:[s are ~{~S~#[~; and ~S~:;, ~]~}~; is ~{~S~}~]."
      "Keyword ~S ist bei Funktion ~S nicht erlaubt.~
                              ~%Erlaubt ~:[sind nur ~{~S~#[~; und ~S~:;, ~]~}~;ist nur ~{~S~}~]."
      "L'argument mot-clΘ ~S n'est pas permis pour la fonction ~S.~
                               ~%Seul~:[s sont permis ~{~S~#[~; et ~S~:;, ~]~}~; est permis ~{~S~}~]."
      1.
  )  )
#Y(#:TOP-LEVEL-FORM-137
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-DIRECT-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-DIRECT-FUNCTION-CALL
      #1005Y(02 00 01 00 0A 00 00 00 00 00 62 92 03 04 A4 25 01 24 C3 1A 22 7D
             00 C5 1A 1D C6 1A 1A C7 1A 17 02 10 07 00 10 06 B3 35 00 12 02 E0
             B7 B7 32 02 23 79 2E 09 19 0D C8 14 0E 06 1B 04 9B 5B 1C 60 B6 71
             4A B4 B4 72 02 35 AC 62 0E 0A 10 0A E3 B1 B1 72 01 34 1A 80 F6 EA
             EB 2F 14 92 0D 80 52 1A 80 4B AB 31 99 1A 0E AF B1 72 01 36 93 13
             E4 6F 09 91 10 6E 9C 14 0E 0A 5C 0F 0A BA AC BD AE 72 01 34 6D 03
             16 B1 E5 AD E6 71 32 2F 0F FD AB 83 06 B1 E5 AC E6 71 32 2F 0F FD
             AA 83 06 16 03 92 0D 82 D4 1A 81 37 91 0B FF AD 92 0D 04 EA ED 2F
             14 AF B1 8F 01 32 FF AF 0E 0A 10 0A C0 92 00 21 93 00 82 01 E4 6F
             09 B3 E5 AC E6 71 32 2F 0F FF AA 83 08 16 01 EF 83 07 E9 0E 0A 5C
             0F 0A 91 00 5F 93 16 E4 6F 09 B3 E5 AC E6 71 32 2F 0F FF AA 83 08
             16 01 F0 B5 B5 72 01 36 7A 02 83 07 16 01 11 F1 83 03 D4 1A 80 A1
             AF B1 72 01 36 F2 AB 7A 02 83 04 AA 0E 0A 5C 0F 0A 16 01 92 0E 80
             BA 1A 80 42 F4 83 03 F5 83 03 D4 1A 80 7D 93 15 82 16 AA E4 6F 09
             B2 E5 AC E6 71 32 2F 0F FE AA 83 07 16 02 E8 83 05 E9 0E 0A 5C 0F
             0A 84 01 AB AB 90 01 32 59 16 02 91 12 FF 4D AF B1 8F 01 30 FF A8
             92 0E 80 75 91 0B 80 4D 92 13 FF B6 0E 0A 10 0A C0 92 00 22 93 00
             82 01 E4 6F 09 B3 E5 AC E6 71 32 2F 0F FF AA 83 08 16 01 64 1E 83
             07 E9 0E 0A 5C 0F 0A 91 00 5E 64 1F B5 B5 72 01 36 7A 02 83 07 16
             01 11 64 20 83 03 D4 14 0E 0A 5C 0F 0A 92 0D 81 C4 1A 28 92 13 21
             93 13 82 14 E4 6F 09 AF E5 AC E6 71 32 2F 0F FB AA 83 04 16 01 F3
             83 03 E9 0E 0A 5C 0F 0A 91 13 5F 92 0D 81 9A B6 71 4A AA 62 B9 1A
             13 CF 1A 80 41 93 00 AA 85 04 14 63 7A 03 83 02 16 01 82 00 9B 20
             6E 16 01 AA 30 A8 16 01 F6 62 92 16 80 49 93 16 82 17 6E 21 AA AD
             64 22 37 02 70 BF 9B 5B 5B 77 93 19 82 1A E3 0E 0A 5C 10 0A AD 91
             05 FF BC 00 14 6F 09 B9 E5 AC E6 71 32 2F 0F 09 0F 63 A2 5B 77 AC
             6A 0A 7A 04 83 08 16 01 11 9D 5B 78 62 30 AD 16 04 91 16 FF B7 AA
             80 4C 00 E3 E3 62 AD 92 00 80 5A 93 00 9B 5A 1C 80 4B 9B 5B 5A 1C
             0D 9B 5B 77 B2 E9 B1 72 02 36 90 01 2D 39 9B 5B 5B 77 B0 1A 0F 16
             02 1A 2E AB 9C 5A 5B 5B 77 8A 23 73 82 00 AA 9F 22 71 16 02 9B 5B
             5B 5B 77 AF 30 AD 9B 5B 5B 77 83 0B 9B 5B 5A 1C 06 64 24 83 0B 84
             04 AA 62 30 AD 16 01 82 00 91 00 FF A6 16 01 AD 80 4C 03 14 92 00
             80 59 93 00 9B 5A 1C 80 4A 9B 5B 5A 1C 08 9B 5B 77 AE 90 01 2D 3D
             9B 5B 5B 77 B0 1A 0F 16 02 1A 32 AB 9C 5A 5B 5B 77 8A 23 73 82 00
             AA 9F 22 71 16 02 9B 5B 5A 1C 06 64 25 83 02 84 03 9B 5B 5B 5B 77
             B2 AF 72 01 36 30 AD 9B 5B 5B 77 83 02 AA 62 30 AD 16 01 82 00 91
             00 FF A7 16 01 AD 80 4C 03 AF AC 72 01 36 AA AE 90 01 30 0A F2 AB
             AF 72 01 36 7A 02 83 0A AE 62 1A 28 86 01 00 5A 1C 20 9B 5B 5B 5B
             77 AD 30 AD 9B 5B 5B 77 83 0C 9B 5B 5A 1C 0D 64 26 9C 5B 77 B0 72
             01 36 7A 02 83 0C 82 01 AB 8C 97 54 16 03 AA B4 7F A7 09 16 05 AA
             0E 0A 5C 0F 0A 16 01 AD B5 75 00 7F A7 03 11 92 05 80 5E 64 27 AB
             90 00 28 80 56 62 AB 62 1A 0F 86 01 00 E5 AB 8E 36 05 AA 6E 28 83
             02 82 01 AB 8C 97 6D 16 02 AA 80 4C 00 62 46 29 30 AC 2B 2A 01 10
             2B C0 A3 36 00 42 11 F9 47 64 2C 62 AC 1A 0D 93 00 64 2D AB 7A 02
             83 02 16 01 82 00 9B 20 70 16 01 AA 30 A8 16 01 79 2E 2E 19 13 1B
             5C 16 02 64 2F B9 7A 02 AC AC 2C 03 30 19 11
            )
      (T . T)
      #S(HASH-TABLE EQ (LOG10 . 12.) (LOG2 . 12.) (BYTE-POSITION . 12.)
         (BYTE-SIZE . 12.) (BYTE . 12.) (FLOAT . 12.) (ATANH . 12.)
         (ACOSH . 12.) (ASINH . 12.) (TANH . 12.) (COSH . 12.) (SINH . 12.)
         (ATAN . 12.) (ACOS . 12.) (ASIN . 12.) (CIS . 12.) (TAN . 12.)
         (COS . 12.) (SIN . 12.) (SIGNUM . 12.) (PHASE . 12.) (ABS . 12.)
         (SQRT . 12.) (LOG . 12.) (EXPT . 12.) (EXP . 12.) (FROUND . 12.)
         (FTRUNCATE . 12.) (FCEILING . 12.) (FFLOOR . 12.) (GENSYM . 12.)
         (SPECIAL-VARIABLE-P . 12.) (KEYWORDP . 12.) (SYMBOL-PLIST . 12.)
         (SYMBOL-PACKAGE . 12.) (GET-PROPERTIES . 12.) (GETF . 12.) (GET . 12.)
         (FILE-LENGTH . 12.) (STREAM-ELEMENT-TYPE . 12.)
         (OUTPUT-STREAM-P . 12.) (INPUT-STREAM-P . 12.) (OPEN-STREAM-P . 12.)
         (MAKE-BUFFERED-OUTPUT-STREAM . 12.) (MAKE-BUFFERED-INPUT-STREAM . 12.)
         (MAKE-STRING-PUSH-STREAM . 12.) (MAKE-STRING-OUTPUT-STREAM . 12.)
         (STRING-INPUT-STREAM-INDEX . 12.) (MAKE-STRING-INPUT-STREAM . 12.)
         (ECHO-STREAM-OUTPUT-STREAM . 12.) (ECHO-STREAM-INPUT-STREAM . 12.)
         (MAKE-ECHO-STREAM . 12.) (TWO-WAY-STREAM-OUTPUT-STREAM . 12.)
         (TWO-WAY-STREAM-INPUT-STREAM . 12.) (MAKE-TWO-WAY-STREAM . 12.)
         (CONCATENATED-STREAM-STREAMS . 12.) (MAKE-CONCATENATED-STREAM . 12.)
         (BROADCAST-STREAM-STREAMS . 12.) (MAKE-BROADCAST-STREAM . 12.)
         (SYNONYM-STREAM-SYMBOL . 12.) (MAKE-SYNONYM-STREAM . 12.)
         (CONCATENATE . 12.) (REVERSE . 12.) (LENGTH . 12.) (COPY-SEQ . 12.)
         (SUBSEQ . 12.) (ELT . 12.) (SEQUENCEP . 12.)
         (CLOS:SLOT-EXISTS-P . 12.) (CLOS::%ALLOCATE-INSTANCE . 12.)
         (%MAKE-CLOSURE . 12.) (MAKE-CODE-VECTOR . 12.) (CLOSURE-CONSTS . 12.)
         (CLOSURE-CODEVEC . 12.) (CLOSURE-NAME . 12.) (%STRUCTURE-TYPE-P . 12.)
         (%COPY-STRUCTURE . 12.) (%MAKE-STRUCTURE . 12.) (%STRUCTURE-REF . 12.)
         (%RECORD-LENGTH . 12.) (%RECORD-REF . 12.) (COERCE . 12.)
         (CLOS:CLASS-OF . 12.) (CLOS::CLASS-P . 12.) (TYPE-OF . 12.)
         (COMMONP . 12.) (CLOS::GENERIC-FUNCTION-P . 12.)
         (COMPILED-FUNCTION-P . 12.) (EQUALP . 12.) (EQUAL . 12.)
         (FILE-AUTHOR . 12.) (FILE-WRITE-DATE . 12.) (DIRECTORY . 12.)
         (PROBE-FILE . 12.) (TRUENAME . 12.) (NAMESTRING . 12.)
         (MAKE-PATHNAME . 12.) (ENOUGH-NAMESTRING . 12.)
         (MERGE-PATHNAMES . 12.) (HOST-NAMESTRING . 12.)
         (DIRECTORY-NAMESTRING . 12.) (FILE-NAMESTRING . 12.)
         (PATHNAME-VERSION . 12.) (PATHNAME-TYPE . 12.) (PATHNAME-NAME . 12.)
         (PATHNAME-DIRECTORY . 12.) (PATHNAME-DEVICE . 12.)
         (PATHNAME-HOST . 12.) (PATHNAME . 12.) (PARSE-NAMESTRING . 12.)
         (FIND-ALL-SYMBOLS . 12.) (FIND-SYMBOL . 12.) (LIST-ALL-PACKAGES . 12.)
         (PACKAGE-SHADOWING-SYMBOLS . 12.) (PACKAGE-USED-BY-LIST . 12.)
         (PACKAGE-USE-LIST . 12.) (PACKAGE-NICKNAMES . 12.)
         (PACKAGE-NAME . 12.) (FIND-PACKAGE . 12.) (%%TIME . 12.)
         (GET-INTERNAL-REAL-TIME . 12.) (GET-INTERNAL-RUN-TIME . 12.)
         (GET-UNIVERSAL-TIME . 12.) (PAIRLIS . 12.) (TAILP . 12.) (LDIFF . 12.)
         (BUTLAST . 12.) (REVAPPEND . 12.) (COPY-TREE . 12.) (COPY-ALIST . 12.)
         (COPY-LIST . 12.) (APPEND . 12.) (LAST . 12.) (NTHCDR . 12.)
         (REST . 12.) (TENTH . 12.) (NINTH . 12.) (EIGHTH . 12.)
         (SEVENTH . 12.) (SIXTH . 12.) (FIFTH . 12.) (FOURTH . 12.)
         (THIRD . 12.) (SECOND . 12.) (FIRST . 12.) (NTH . 12.)
         (LIST-LENGTH . 12.) (CDDDDR . 12.) (CDDDAR . 12.) (CDDADR . 12.)
         (CDDAAR . 12.) (CDADDR . 12.) (CDADAR . 12.) (CDAADR . 12.)
         (CDAAAR . 12.) (CADDDR . 12.) (CADDAR . 12.) (CADADR . 12.)
         (CADAAR . 12.) (CAADDR . 12.) (CAADAR . 12.) (CAAADR . 12.)
         (CAAAAR . 12.) (CDDDR . 12.) (CDDAR . 12.) (CDADR . 12.) (CDAAR . 12.)
         (CADDR . 12.) (CADAR . 12.) (CAADR . 12.) (CAAAR . 12.) (CDDR . 12.)
         (CDAR . 12.) (CADR . 12.) (CAAR . 12.) (CDR . 12.) (CAR . 12.)
         (LINE-POSITION . 12.) (GET-DISPATCH-MACRO-CHARACTER . 12.)
         (GET-MACRO-CHARACTER . 12.) (SXHASH . 12.) (HASH-TABLE-ITERATOR . 12.)
         (HASH-TABLE-SIZE . 12.) (HASH-TABLE-REHASH-THRESHOLD . 12.)
         (HASH-TABLE-REHASH-SIZE . 12.) (HASH-TABLE-COUNT . 12.)
         (GETHASH . 12.) (MAKE-HASH-TABLE . 12.) (CONSTANTP . 12.)
         (MACRO-FUNCTION . 12.) (VALUES-LIST . 12.) (FBOUNDP . 12.)
         (BOUNDP . 12.) (SYMBOL-FUNCTION . 12.) (SYMBOL-VALUE . 12.)
         (MAKE-SYMBOL . 12.) (STRING-CONCAT . 12.) (SUBSTRING . 12.)
         (NAME-CHAR . 12.) (STRING . 12.) (STRING-CAPITALIZE . 12.)
         (STRING-DOWNCASE . 12.) (STRING-UPCASE . 12.) (STRING-BOTH-TRIM . 12.)
         (SEARCH-STRING-EQUAL . 12.) (SEARCH-STRING= . 12.)
         (STRING-NOT-LESSP . 12.) (STRING-NOT-GREATERP . 12.)
         (STRING-GREATERP . 12.) (STRING-LESSP . 12.) (STRING-NOT-EQUAL . 12.)
         (STRING-EQUAL . 12.) (STRING>= . 12.) (STRING<= . 12.) (STRING> . 12.)
         (STRING< . 12.) (STRING/= . 12.) (STRING= . 12.) (SCHAR . 12.)
         (CHAR . 12.) (CHARACTER . 12.) (MAKE-ARRAY . 12.) (FILL-POINTER . 12.)
         (ARRAY-HAS-FILL-POINTER-P . 12.) (SBIT . 12.) (BIT . 12.)
         (ARRAY-ROW-MAJOR-INDEX . 12.) (ARRAY-IN-BOUNDS-P . 12.)
         (ARRAY-TOTAL-SIZE . 12.) (ARRAY-DIMENSIONS . 12.)
         (ARRAY-DIMENSION . 12.) (ROW-MAJOR-AREF . 12.) (SVREF . 12.)
         (AREF . 12.) (%COPY-SIMPLE-VECTOR . 12.) (SUBR-INFO . 12.)
         (DECIMAL-STRING . 9.) (SYMBOL-NAME . 9.) (MAKE-SYMBOL-MACRO . 9.)
         (MAKE-LOAD-TIME-EVAL . 9.) (SOFTWARE-VERSION . 9.)
         (SOFTWARE-TYPE . 9.) (LISP-IMPLEMENTATION-VERSION . 9.)
         (LISP-IMPLEMENTATION-TYPE . 9.) (ACONS . 9.) (MAKE-LIST . 9.)
         (LIST* . 9.) (LIST . 9.) (CONS . 9.) (VALUES . 9.) (MAKE-STRING . 9.)
         (VECTOR . 9.) (EXQUO . 4.) (! . 4.) (DEPOSIT-FIELD . 4.) (DPB . 4.)
         (MASK-FIELD . 4.) (LDB-TEST . 4.) (LDB . 4.) (INTEGER-LENGTH . 4.)
         (LOGCOUNT . 4.) (ASH . 4.) (LOGBITP . 4.) (LOGTEST . 4.) (LOGNOT . 4.)
         (BOOLE . 4.) (LOGORC2 . 4.) (LOGORC1 . 4.) (LOGANDC2 . 4.)
         (LOGANDC1 . 4.) (LOGNOR . 4.) (LOGNAND . 4.) (LOGEQV . 4.)
         (LOGAND . 4.) (LOGXOR . 4.) (LOGIOR . 4.) (IMAGPART . 4.)
         (REALPART . 4.) (COMPLEX . 4.) (INTEGER-DECODE-FLOAT . 4.)
         (FLOAT-PRECISION . 4.) (FLOAT-DIGITS . 4.) (FLOAT-SIGN . 4.)
         (FLOAT-RADIX . 4.) (SCALE-FLOAT . 4.) (DECODE-FLOAT . 4.) (REM . 4.)
         (MOD . 4.) (ROUND . 4.) (TRUNCATE . 4.) (CEILING . 4.) (FLOOR . 4.)
         (DENOMINATOR . 4.) (NUMERATOR . 4.) (RATIONALIZE . 4.) (RATIONAL . 4.)
         (ISQRT . 4.) (LCM . 4.) (GCD . 4.) (CONJUGATE . 4.) (1- . 4.)
         (1+ . 4.) (/ . 4.) (* . 4.) (- . 4.) (+ . 4.) (MIN . 4.) (MAX . 4.)
         (>= . 4.) (<= . 4.) (> . 4.) (< . 4.) (/= . 4.) (= . 4.) (EVENP . 4.)
         (ODDP . 4.) (MINUSP . 4.) (PLUSP . 4.) (ZEROP . 4.)
         (CLOS::STD-INSTANCE-P . 4.) (CLOS::STRUCTURE-INSTANCE-P . 4.)
         (SYMBOL-MACRO-P . 4.) (SIMPLE-BIT-VECTOR-P . 4.)
         (SIMPLE-STRING-P . 4.) (SIMPLE-VECTOR-P . 4.) (VECTORP . 4.)
         (BIT-VECTOR-P . 4.) (SIMPLE-ARRAY-P . 4.) (ARRAYP . 4.)
         (PACKAGEP . 4.) (FUNCTIONP . 4.) (CHARACTERP . 4.)
         (LOGICAL-PATHNAME-P . 4.) (HASH-TABLE-TEST . 4.) (PATHNAMEP . 4.)
         (HASH-TABLE-P . 4.) (READTABLEP . 4.) (RANDOM-STATE-P . 4.)
         (STRING-STREAM-P . 4.) (ECHO-STREAM-P . 4.) (TWO-WAY-STREAM-P . 4.)
         (CONCATENATED-STREAM-P . 4.) (BROADCAST-STREAM-P . 4.)
         (SYNONYM-STREAM-P . 4.) (FILE-STREAM-P . 4.) (STREAMP . 4.)
         (COMPLEXP . 4.) (REALP . 4.) (LONG-FLOAT-P . 4.) (DOUBLE-FLOAT-P . 4.)
         (SINGLE-FLOAT-P . 4.) (SHORT-FLOAT-P . 4.) (FLOATP . 4.)
         (RATIONALP . 4.) (FIXNUMP . 4.) (INTEGERP . 4.) (LISTP . 4.)
         (CLOSUREP . 4.) (NOT . 4.) (NULL . 4.) (NUMBERP . 4.) (STRINGP . 4.)
         (SYMBOLP . 4.) (ATOM . 4.) (CONSP . 4.) (EQL . 4.) (EQ . 4.)
         (IDENTITY . 4.) (ENDP . 4.) (SPECIAL-FORM-P . 4.) (CHAR-BIT . 4.)
         (CHAR-NAME . 4.) (INT-CHAR . 4.) (CHAR-INT . 4.) (DIGIT-CHAR . 4.)
         (CHAR-DOWNCASE . 4.) (CHAR-UPCASE . 4.) (MAKE-CHAR . 4.)
         (CODE-CHAR . 4.) (CHAR-FONT . 4.) (CHAR-BITS . 4.) (CHAR-CODE . 4.)
         (CHAR-NOT-LESSP . 4.) (CHAR-NOT-GREATERP . 4.) (CHAR-GREATERP . 4.)
         (CHAR-LESSP . 4.) (CHAR-NOT-EQUAL . 4.) (CHAR-EQUAL . 4.)
         (CHAR>= . 4.) (CHAR<= . 4.) (CHAR> . 4.) (CHAR< . 4.) (CHAR/= . 4.)
         (CHAR= . 4.) (ALPHANUMERICP . 4.) (DIGIT-CHAR-P . 4.)
         (BOTH-CASE-P . 4.) (LOWER-CASE-P . 4.) (UPPER-CASE-P . 4.)
         (ALPHA-CHAR-P . 4.) (STRING-CHAR-P . 4.) (GRAPHIC-CHAR-P . 4.)
         (STANDARD-CHAR-P . 4.) (ADJUSTABLE-ARRAY-P . 4.) (ARRAY-RANK . 4.)
         (ARRAY-ELEMENT-TYPE . 4.) (%FUNTABREF . 4.)
        )
      (NIL) (NIL) (T) (T . T) *FOR-VALUE* *NO-CODE* PROGN C-FORM *STACKZ* 0.
      ONE ANODE 2. SECLASS-OR-2 (PUSH) 1. C-DIRECT-FUNCTION-CALL "APPLY-SUBR"
      COMPILER-ERROR "APPLY-KEY" C-UNLIST (PUSH) LIST* (PUSH) PUSH-UNBOUND
      (PUSH) (NIL) (PUSH) (PUSH) LIST (PUSH) C-CONSTANT-VALUE #.#'EQ
      ANODES-COMMUTE (PUSH) (PUSH) STORE
      #Y(C-DIRECT-FUNCTION-CALL-1
         #24Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 58 1D 05 AB 2E 01 19 02
              19 02
             )
         ANODE ANODE-CONSTANTP
        )
      ANODE-CONSTANT-VALUE TRY-EVAL
      #Y(C-DIRECT-FUNCTION-CALL-2 #13Y(00 00 00 00 00 00 00 00 01 16 00 48 00)
         NIL
        )
      *ERROR-HANDLER* VALUES QUOTE C-GLOBAL-FUNCTION-CALL-FORM DIRECT-CALL
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-138
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-UNLIST
   REMOVE-OLD-DEFINITIONS
   #Y(C-UNLIST
      #43Y(00 00 00 00 03 00 00 00 00 04 91 03 15 DE DF C9 14 AF AF 7A 03 60 01
           14 2C 03 04 19 04 D9 DA C6 1A 75 AC 23 00 77 D9 DD C4 1A 65
          )
      0. UNLIST* (NIL) ((PUSH)) MK-ANODE (T . T) UNLIST (T . T)
  )  )
#Y(#:TOP-LEVEL-FORM-139
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   CCLOSURE-CALL-CODE-PRODUCER REMOVE-OLD-DEFINITIONS
   #Y(CCLOSURE-CALL-CODE-PRODUCER
      #67Y(00 00 00 00 07 00 00 00 00 00 00 2A 02 7E 08 00 00 7E 03 00 01 B1 0E
           00 21 09 AA 2B 06 01 19 09 C5 1A 0A 9B 2A 01 D9 B2 B2 91 08 74 C6 14
           B1 71 4A 72 04 35 6A 04 7A 03 60 01 0B 00 00 AA 2B 05 01 19 0A
          )
      *FUNC* JSR 1. 0. *FUNC-START-LABEL*
      #Y(CCLOSURE-CALL-CODE-PRODUCER-1
         #15Y(00 00 00 00 00 00 00 00 00 01 07 00 01 19 01) NIL
        )
      #Y(CCLOSURE-CALL-CODE-PRODUCER-2
         #33Y(00 00 00 00 00 00 00 00 00 01 D9 68 00 01 7A 02 DA 6F 03 07 00 02
              1B 06 C8 14 60 02 19 01 C7 1A 78
             )
         NIL FUNCTION ONE C-FORM (CALLCKEY) (CALLC)
  )  )  )
#Y(#:TOP-LEVEL-FORM-140
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-GLOBAL-FUNCTION-CALL-FORM REMOVE-OLD-DEFINITIONS
   #Y(C-GLOBAL-FUNCTION-CALL-FORM
      #21Y(00 00 00 00 01 00 00 00 00 02 9C 10 00 0E 00 77 2E 01 11 19 02)
      *FORM* C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-141
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-GLOBAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-GLOBAL-FUNCTION-CALL
      #847Y(00 00 00 00 01 00 00 00 00 02 6A 00 D9 2F 02 0E 03 1C 82 F1 AB 8B
            54 13 AB 6A 04 DD 37 02 8B B8 0A AB 6A 06 DD 37 02 30 BC 0F 06 AB
            24 07 13 6A 00 71 4A E0 90 01 2D 0A 0E 00 5B 77 AA 87 09 27 16 01
            AB 23 10 05 AB 24 11 80 52 98 09 0E 00 78 90 00 28 80 48 E2 EA AD
            23 10 1F AD 23 11 1E 00 14 62 0E 00 78 1A 27 E2 E3 E4 E5 AE 6E 0E
            7A 02 7A 02 7A 03 2E 0F 16 01 1A 48 D6 1A 63 D7 1A 60 93 00 E5 AB
            6E 0E 7A 02 83 02 16 01 82 00 9B 20 6F 16 01 AA 30 A8 16 01 79 7A
            03 2E 0F 9C 25 15 82 63 98 09 0E 00 78 90 00 28 82 59 AB 62 0E 00
            78 1A 82 41 A4 25 18 81 FE A4 25 19 10 03 1A 1A 0E 03 1B 1A 0A 03
            1E 1A 21 2D 22 19 0B 03 1C 14 0E 1D 1B 04 9B 5B 1C 6D B4 24 1F 15
            6A 1D 24 20 10 B1 64 21 8F 01 2D 61 03 23 14 A4 79 2E 0F 19 0B AA
            62 0E 24 10 24 92 0D 2C 1A 0D 64 27 83 03 D9 0E 24 5C 0F 24 92 0D
            1D 93 0D 82 0E 64 20 6F 0F AF 64 25 AC E0 71 32 2F 26 FB AA 83 04
            16 01 91 0D 59 91 0D 63 AD 04 10 25 28 80 FF 03 29 1A 80 FE 03 2A
            1A 80 F9 03 2B 1A 80 F4 03 2C 1A 80 EF 03 2D 1A 80 EA 03 2E 1A 80
            E5 03 2F 1A 80 E0 03 30 1A 80 DB 03 31 1A 80 D6 03 32 1A 80 D1 03
            33 1A 80 CC 03 34 1A 80 C7 03 35 1A 80 C2 03 36 1A 80 BD 03 37 1A
            80 B8 03 38 1A 80 B3 03 39 1A 80 AE 03 3A 1A 80 A9 03 3B 1A 80 A4
            03 3C 1A 80 9F 03 3D 1A 80 9A 03 3E 1A 80 95 03 3F 1A 80 90 03 40
            1A 80 8B 03 41 1A 80 86 03 42 1A 80 81 03 43 1A 80 7C 03 44 1A 80
            77 03 45 1A 80 72 03 46 1A 80 6D 03 47 1A 80 68 03 48 1A 80 63 03
            49 1A 80 5E 03 4A 1A 80 59 03 4B 1A 80 54 03 4C 1A 80 4F 03 4D 1A
            80 4A 03 4E 1A 80 45 03 4F 1A 80 40 B7 23 21 72 B7 23 01 73 64 50
            03 51 1A 10 03 52 1A 2E 03 53 1A 2A B7 8E 95 0C 64 54 03 55 14 B9
            7A 02 60 02 1A 1A 03 56 1A 16 03 57 1A 12 B7 23 01 78 64 58 96 0E
            7A 02 60 01 1A 04 64 59 2E 5A 14 7F A7 03 11 64 5B B7 7A 02 AC AC
            2C 03 5C 19 0D AE B1 90 01 31 0F 91 02 FE 6E B0 AF AF 72 02 35 8F
            01 31 FE 63 64 5D 64 5E 64 5F 6D 03 60 B4 B2 AF B1 03 21 59 14 B3
            B4 B4 72 02 35 2C 07 61 B3 2E 62 19 0A B5 2E 67 1A 24 B3 62 B7 B3
            B3 B3 B3 B4 63 00 2A 01 92 0E 6C 64 68 64 21 BE BD BD 72 02 36 72
            01 33 B7 6A 69 72 01 36 60 03 14 04 16 25 6A 04 03 6B 1A 01 00 5C
            0B 00 00 AA 2B 6C 01 F6 2C 0A 6D 19 0C B3 6A 63 37 01 70 68 92 00
            80 83 B2 62 B6 B2 B2 B2 B2 B3 B3 6D 09 64 AA 23 65 FF A7 AA 23 66
            FF A2 B5 2E 62 19 0C B4 B3 62 AD 62 2C 05 74 19 0B 93 00 E5 AB 6E
            0E 7A 02 83 02 16 01 82 00 9B 20 6F 16 01 AA 30 A8 16 01 79 0E 16
            5C 0F 16 0E 00 78 AA 71 4A AD 87 17 3B AD 30 01 41 06 92 05 05 B3
            A1 21 FD 98 0E 03 1C 0B B3 6A 6E DD 37 02 30 BF 5B 1B 09 B3 6E 6F
            64 70 37 01 31 86 14 9B 1F 0D 64 71 64 72 9D 79 7A 02 B2 89 73 FF
            98 B4 2E 62 19 0B AD 2E 62 19 04
           )
      *FORM* 1. TEST-LIST *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL
      *UNKNOWN-FUNCTIONS* PROCLAIM 2. C-CONSTANTP EVAL-WHEN (COMPILE)
      C-PROCLAIM QUOTE C-CONSTANT-VALUE C-FORM PROVIDE REQUIRE (COMPILE)
      C-PROVIDE C-REQUIRE
      #S(HASH-TABLE EQ (IMPORT . 2.) (UNUSE-PACKAGE . 2.) (USE-PACKAGE . 2.)
         (UNEXPORT . 2.) (EXPORT . 2.) (SHADOWING-IMPORT . 2.) (SHADOW . 2.)
         (IN-PACKAGE . 2.) (%IN-PACKAGE . 2.) (MAKE-PACKAGE . 2.)
        )
      *PACKAGE-TASKS* DECLARED-NOTINLINE
      #S(HASH-TABLE EQ (LIST* . 394.) (LIST . 394.) (SYMBOL-FUNCTION . 394.)
         (EQ . 394.) (%SVSTORE . 394.) (VALUES-LIST . 394.) (CONSP . 394.)
         (ATOM . 394.) (CDDDDR . 394.) (CDDDAR . 394.) (CDDADR . 394.)
         (CDDAAR . 394.) (CDADDR . 394.) (CDADAR . 394.) (CDAADR . 394.)
         (CDAAAR . 394.) (CADDDR . 394.) (CADDAR . 394.) (CADADR . 394.)
         (CADAAR . 394.) (CAADDR . 394.) (CAADAR . 394.) (CAAADR . 394.)
         (CAAAAR . 394.) (FOURTH . 394.) (THIRD . 394.) (SECOND . 394.)
         (CDDDR . 394.) (CDDAR . 394.) (CDADR . 394.) (CDAAR . 394.)
         (CADDR . 394.) (CADAR . 394.) (CAADR . 394.) (CAAAR . 394.)
         (CDDR . 394.) (CDAR . 394.) (CADR . 394.) (CAAR . 394.)
         (VALUES . 394.) (SVREF . 394.) (CONS . 394.) (NULL . 394.)
         (NOT . 394.) (REST . 394.) (FIRST . 394.) (CDR . 394.) (CAR . 394.)
        )
      #S(HASH-TABLE EQ (SYMBOL-FUNCTION . 5.) (SVREF . 5.) (VALUES-LIST . 5.)
         (CDDDDR . 5.) (CDDDAR . 5.) (CDDADR . 5.) (CDDAAR . 5.) (CDADDR . 5.)
         (CDADAR . 5.) (CDAADR . 5.) (CDAAAR . 5.) (CADDDR . 5.) (CADDAR . 5.)
         (CADADR . 5.) (CADAAR . 5.) (CAADDR . 5.) (CAADAR . 5.) (CAAADR . 5.)
         (CAAAAR . 5.) (FOURTH . 5.) (THIRD . 5.) (SECOND . 5.) (CDDDR . 5.)
         (CDDAR . 5.) (CDADR . 5.) (CDAAR . 5.) (CADDR . 5.) (CADAR . 5.)
         (CAADR . 5.) (CAAAR . 5.) (CDDR . 5.) (CDAR . 5.) (CADR . 5.)
         (CAAR . 5.) (REST . 5.) (FIRST . 5.) (CDR . 5.) (CAR . 5.)
         (LIST* . 1.) (LIST . 1.) (EQ . 1.) (CONSP . 1.) (ATOM . 1.)
         (VALUES . 1.) (CONS . 1.) (NULL . 1.) (NOT . 1.)
        )
      (NIL) (T) (T . T) *FOR-VALUE* PROGN VALUES ONE 0. C-NIL PROG1 *STACKZ*
      ANODE SECLASS-OR-2 (PUSH)
      #S(HASH-TABLE EQ (LIST* . 243.) (LIST . 219.) (SYMBOL-FUNCTION . 215.)
         (VALUES-LIST . 211.) (VALUES . 197.) (EQ . 182.) (%SVSTORE . 177.)
         (SVREF . 172.) (CONS . 167.) (NULL . 162.) (NOT . 162.) (CONSP . 157.)
         (ATOM . 152.) (CDDDDR . 147.) (CDDDAR . 142.) (CDDADR . 137.)
         (CDDAAR . 132.) (CDADDR . 127.) (CDADAR . 122.) (CDAADR . 117.)
         (CDAAAR . 112.) (FOURTH . 107.) (CADDDR . 107.) (CADDAR . 102.)
         (CADADR . 97.) (CADAAR . 92.) (CAADDR . 87.) (CAADAR . 82.)
         (CAAADR . 77.) (CAAAAR . 72.) (CDDDR . 67.) (CDDAR . 62.)
         (CDADR . 57.) (CDAAR . 52.) (THIRD . 47.) (CADDR . 47.) (CADAR . 42.)
         (CAADR . 37.) (CAAAR . 32.) (CDDR . 27.) (CDAR . 22.) (SECOND . 17.)
         (CADR . 17.) (CAAR . 12.) (REST . 7.) (CDR . 7.) (FIRST . 2.)
         (CAR . 2.)
        )
      ((CAR)) ((CDR)) ((CAR) (CAR)) ((CDR) (CAR)) ((CAR) (CDR)) ((CDR) (CDR))
      ((CAR) (CAR) (CAR)) ((CDR) (CAR) (CAR)) ((CAR) (CDR) (CAR))
      ((CDR) (CDR) (CAR)) ((CAR) (CAR) (CDR)) ((CDR) (CAR) (CDR))
      ((CAR) (CDR) (CDR)) ((CDR) (CDR) (CDR)) ((CAR) (CAR) (CAR) (CAR))
      ((CDR) (CAR) (CAR) (CAR)) ((CAR) (CDR) (CAR) (CAR))
      ((CDR) (CDR) (CAR) (CAR)) ((CAR) (CAR) (CDR) (CAR))
      ((CDR) (CAR) (CDR) (CAR)) ((CAR) (CDR) (CDR) (CAR))
      ((CDR) (CDR) (CDR) (CAR)) ((CAR) (CAR) (CAR) (CDR))
      ((CDR) (CAR) (CAR) (CDR)) ((CAR) (CDR) (CAR) (CDR))
      ((CDR) (CDR) (CAR) (CDR)) ((CAR) (CAR) (CDR) (CDR))
      ((CDR) (CAR) (CDR) (CDR)) ((CAR) (CDR) (CDR) (CDR))
      ((CDR) (CDR) (CDR) (CDR)) ((ATOM)) ((CONSP)) ((NOT)) ((CONS)) ((SVREF))
      ((SVSET)) ((EQ)) ((VALUES0)) ((VALUES1)) (PUSH) STACK-TO-MV
      ((LIST-TO-MV)) ((SYMBOL-FUNCTION)) (PUSH) LIST ((NIL)) ((VALUES1)) LIST*
      C-GLOBAL-FUNCTION-CALL COMPILER-ERROR PRIMOP MK-ANODE
      "~S called with ~S arguments, but it requires ~
                                   ~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
      "~S mit ~S Argumenten aufgerufen, braucht aber ~
                                   ~:[~:[~S bis ~S~;~S~]~;mindestens ~*~S~] Argumente."
      "~S est appelΘ avec ~S arguments mais a besoin ~
                                    ~:[de ~:[~S α ~S~;~S~]~;d'au moins ~*~S~] arguments."
      LANGUAGE C-WARN C-NORMAL-FUNCTION-CALL FUNCTION-CODES
      TEST-ARGUMENT-SYNTAX NO-KEYS STATIC-KEYS CALLS-CODE CALLSR FUNTABR-INDEX
      #S(HASH-TABLE EQ (INVOKE-DEBUGGER . 1.) (ERROR-OF-TYPE . 1.) (ERROR . 1.)
         (UNWIND-TO-DRIVER . 1.) (DRIVER . 1.)
        )
      ((BARRIER))
      #Y(C-GLOBAL-FUNCTION-CALL-1
         #15Y(00 00 00 00 00 00 00 00 00 01 07 00 01 19 01) NIL
        )
      C-DIRECT-FUNCTION-CALL *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL
      INLINE-EXPANSION FUNCTION LAMBDA INLINE-CALLABLE-FUNCTION-LAMBDA-P
      C-FUNCALL-INLINE
  )  )
#Y(#:TOP-LEVEL-FORM-142
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-PROCLAIM
   REMOVE-OLD-DEFINITIONS
   #Y(C-PROCLAIM
      #160Y(00 00 00 00 01 00 00 00 00 02 9C 20 03 00 19 02 9C 5A 25 00 78 94
            01 62 AB 8B 97 80 80 86 01 00 14 8E 09 0A AA 6A 01 DA 37 02 30 BC
            0F 01 82 01 1A 66 94 01 62 AB 8B 97 80 63 86 01 00 14 88 03 15 AA
            6A 04 DD 37 02 30 BC 0F 04 AA 6A 06 37 07 C8 F8 31 54 0F 06 82 01
            1A 5B 94 01 62 AB 8B 97 3C 86 01 00 14 88 03 15 AA 6A 06 DD 37 02
            30 BC 0F 06 AA 6A 04 37 07 C8 F8 31 54 0F 04 82 01 1A 5C 94 01 62
            1A 13 86 01 00 14 8E 09 0A AA 6A 07 DA 37 02 30 BC 0F 07 82 01 AB
            8C 97 69 00 19 04
           )
      #S(HASH-TABLE EQ (DECLARATION . 109.) (NOTINLINE . 70.) (INLINE . 30.)
         (SPECIAL . 1.)
        )
      *KNOWN-SPECIAL-VARS* #.#'EQ FUNCTION-NAME-P *INLINE-FUNCTIONS* #.#'EQUAL
      *NOTINLINE-FUNCTIONS* *USER-DECLARATION-TYPES*
  )  )
#Y(#:TOP-LEVEL-FORM-143
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-PROCLAIM-CONSTANT REMOVE-OLD-DEFINITIONS
   #Y(C-PROCLAIM-CONSTANT
      #43Y(00 00 00 00 02 00 00 00 00 03 0E 00 1C 0E AC 6A 01 DA 37 02 30 BC 0F
           01 AB 87 03 03 00 19 03 AC AC 2E 04 79 0E 05 5C 0F 05 19 03
          )
      *COMPILING-FROM-FILE* *KNOWN-SPECIAL-VARS* #.#'EQ C-CONSTANTP
      C-CONSTANT-VALUE *CONSTANT-SPECIAL-VARS*
  )  )
#Y(#:TOP-LEVEL-FORM-144
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-DEFUN
   REMOVE-OLD-DEFINITIONS
   #Y(C-DEFUN
      #55Y(00 00 00 00 01 00 01 00 00 08 3A 01 12 7C 01 0E 00 1C 21 1A 0E AC 9D
           79 0E 04 5C 0F 04 19 03 0E 00 1C 11 0E 01 1C 0D AC 6A 02 DB 37 02 30
           BC 0F 02 91 01 61 00 19 03
          )
      *COMPILING* *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL
      *INLINE-DEFINITIONS*
  )  )
#Y(#:TOP-LEVEL-FORM-145
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-PROVIDE
   REMOVE-OLD-DEFINITIONS
   #Y(C-PROVIDE
      #24Y(00 00 00 00 01 00 00 00 00 02 AB 70 4F 6A 00 D9 37 02 30 BC 0F 00 19
           02
          )
      *COMPILED-MODULES* #.#'STRING=
  )  )
#Y(#:TOP-LEVEL-FORM-146
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-REQUIRE
   REMOVE-OLD-DEFINITIONS
   #Y(C-REQUIRE
      #51Y(00 00 00 00 01 00 01 00 00 08 3B 01 14 3C 02 AD 70 4F 6A 00 D9 37 02
           8B B8 11 91 00 04 AD 7F EA 02 9D 1F 0A DA AD 32 00 17 19 04 00 19 04
           AC C5 33 19 04
          )
      *COMPILED-MODULES* #.#'STRING-EQUAL
      #Y(C-REQUIRE-LOAD-LIB
         #56Y(00 00 00 00 01 00 00 00 00 02 AB 6A 00 D9 72 02 23 6F 02 93 00 9C
              1F 0B AA 37 01 70 EF DB 37 04 8B 39 09 91 00 01 9E 14 2E 08 19 04
              AA DC 62 DD 62 DE 62 2C 07 07 19 04
             )
         *SOURCE-FILE-TYPES*
         (#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
              :TYPE "lib" :VERSION NIL
         )  )
         SEARCH-FILE
         #.(PATHNAME-TYPE
             '#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
                 :NAME NIL :TYPE "lib" :VERSION NIL
           )    )
         :VERBOSE :PRINT :ECHO LOAD COMPILE-FILE
  )  )  )
#Y(#:TOP-LEVEL-FORM-147
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ANALYZE-LETLIST REMOVE-OLD-DEFINITIONS
   #Y(ANALYZE-LETLIST
      #94Y(02 00 01 00 01 00 00 00 00 02 AB 01 02 92 02 80 43 93 02 8D 09 23 9D
           5A 1F 26 9D 5A 77 8E 09 20 9D 5A 5B 1F 1B 9D 5A 5B 5B 1B 15 9D 5A 77
           83 01 9D 5A 5B 5A 14 83 00 1A 15 93 02 83 01 00 1A 74 C3 4F 0B D9 DA
           DB 6D 03 04 93 06 2F 00 50 82 02 91 02 FF BD AB 71 4C AB 71 4C 3F 02
           19 05
          )
      C-ERROR "Illegal syntax in LET/LET*: ~S" "Falsche Syntax in LET/LET*: ~S"
      "Mauvaise syntaxe pour LET/LET* : ~S" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-148
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ANALYZE-LAMBDALIST REMOVE-OLD-DEFINITIONS
   #Y(ANALYZE-LAMBDALIST
      #780Y(02 00 01 00 01 00 00 00 00 02 AB 01 04 D8 01 08 A8 1F 2D 93 0D AA
            8D 09 09 AA 2E 08 16 01 82 0D 1A 6E 9B 25 01 13 9B 25 02 00 C6 4F
            6F DC DD DE 6D 03 07 AE 2F 03 50 1A 63 AA 83 0D 1A 5E 16 01 A8 1F
            80 C8 93 0D 24 09 80 C2 1A 3A 9B 25 0A 04 9B 25 0B 22 AA 83 0C 62
            83 0B C3 1A 80 6A 93 00 83 0C 62 83 0B C3 1A 80 5F 93 00 83 0C 9B
            5B 77 83 0B C3 1A 80 52 C6 4F 80 5E DC DD DE 6D 03 07 AE 2F 03 50
            16 01 82 0D A8 1F 80 80 93 0D AA 8D 09 FF B9 9B 1F 3A 93 00 8E 09
            35 9B 5B 1C FF BE 9B 5B 1F 2C 9B 5B 5B 1C 40 9B 5B 5B 1F 22 9B 5B
            5B 77 8E 09 1B 9B 5B 5B 5B 1B 15 93 00 83 0C 9B 5B 77 83 0B 9B 5B
            5B 5A 14 83 0A 16 01 1A FF B6 AA 2E 08 16 01 1A FF AE 16 01 1A FF
            A9 C6 4F 80 44 E5 E6 E7 6D 03 07 BD 2F 03 50 1A 38 9B 25 10 15 C6
            4F 0E E5 E6 E7 6D 03 07 BE 2F 03 50 16 01 1A 23 16 01 1A 1F 9B FF
            1A 17 16 01 A8 1F 16 93 0D 24 0C 11 82 0D 1F 45 93 0D AA 8D 09 4F
            AA 2E 08 82 0E 16 01 A8 1F 80 76 93 0D 9B 25 11 08 C6 4F 14 DC DD
            C9 1A 07 C6 4F 0C EC ED 03 16 14 6D 03 07 AE 2F 03 50 16 01 82 0D
            1A 59 9B 25 17 11 C6 4F 80 D1 DC DD DE 6D 03 07 AE 2F 03 50 1A 80
            C4 AA 71 8E 6A 19 70 D8 83 07 AA 83 06 62 83 05 C3 1A 80 A9 9B 5A
            77 83 07 9B 5A 5B 1A 80 92 9B 5B 5B 5A 1A 80 97 9B 5B 77 83 05 9B
            5B 5B 20 6F C3 1A 80 89 AA 23 12 05 AA 24 13 FF 92 16 01 A8 1F 80
            A4 93 0D 24 12 80 9E 82 0D 7D 07 A8 1F 80 86 93 0D AA 8D 09 FF 94
            9B 1F 80 66 93 00 8D 09 21 9B 5A 1F 80 5C 9B 5A 77 8E 8F 80 55 9B
            5A 5B 1F 80 4F 9B 5A 5B 77 8E 09 80 47 9B 5A 5B 5B 1B 80 40 9B 5B
            1C 1B 9B 5B 1F 38 9B 5B 5B 1C 12 9B 5B 5B 1F 2E 9B 5B 5B 77 8E 09
            27 9B 5B 5B 5B 1B 21 9B 5A 20 FF 6E 93 00 71 8E 6A 19 70 D8 83 07
            9B 77 83 06 9B 5B 20 FF 6D 62 83 05 C3 14 83 04 1A 03 AA 2E 08 16
            01 82 0D 1A FF 81 AA 23 18 05 AA 24 13 FF 1B 16 01 A8 1F 0D 93 0D
            24 18 08 7D 02 1A 02 16 01 82 0D A8 1F 80 82 93 0D 9B 25 1A 08 C6
            4F 6F DC DD C9 1A 07 C6 4F 67 EC ED 03 16 14 6D 03 07 AE 2F 03 50
            16 01 1A 59 9B 25 1B 00 9B 1A 2A C6 4F 80 4A DC DD DE 6D 03 07 AE
            2F 03 50 16 01 82 0D A8 1F 80 4D 93 0D AA 8D 09 5D 9B 1F 28 93 00
            8E 09 23 9B 5B 1B 08 9B 5A 14 83 02 00 1A 10 9B 5B 1F 13 9B 5B 5B
            1B 0E 93 00 83 02 9B 5B 5A 14 83 01 16 01 1A 49 AA 2E 08 16 01 1A
            42 16 01 1A FF BD AA 24 13 FF 86 16 01 A8 1F 06 93 0D 23 13 FF AD
            92 0D 0E C6 4F 0B F4 F5 64 1E 6D 03 07 BD 2F 03 50 B6 71 4C B6 71
            4C B6 71 4C B6 71 4C B6 B6 B6 71 4C B6 71 4C B6 71 4C B6 71 4C B6
            B6 71 4C B6 71 4C 3F 0D 19 10
           )
      0.
      #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
         (&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
         (&OPTIONAL . 1.)
        )
      #S(HASH-TABLE EQ (&AUX . 21.) (&KEY . 21.) (&REST . 21.)
         (&OPTIONAL . 21.)
        )
      C-ERROR "Lambda list marker ~S not allowed here."
      "Dieser Lambdalistenmarker ist an dieser Stelle nicht erlaubt: ~S"
      "Le marqueur de liste lambda ~S n'est pas permis ici." LANGUAGE
      LAMBDALIST-ERROR &OPTIONAL
      #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
         (&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
         (&OPTIONAL . 1.)
        )
      #S(HASH-TABLE EQ (&AUX . 183.) (&KEY . 183.) (&REST . 183.)) &REST
      "Missing &REST parameter in lambda list ~S"
      "Fehlender &REST-Parameter in der Lambdaliste: ~S"
      "Il manque le paramΦtre &REST dans la liste lambda ~S"
      #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
         (&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
         (&OPTIONAL . 1.)
        )
      #S(HASH-TABLE EQ (&ENVIRONMENT . 102.) (&WHOLE . 102.) (&BODY . 102.)
         (&AUX . 102.) (&ALLOW-OTHER-KEYS . 102.) (&KEY . 102.) (&REST . 102.)
         (&OPTIONAL . 102.)
        )
      &KEY &AUX "Lambda list element ~S is superfluous."
      "▄berflⁿssiges Lambdalisten-Element: ~S"
      "L'ΘlΘment de liste lambda est superflu : ~S"
      #S(HASH-TABLE EQ (&ENVIRONMENT . 221.) (&WHOLE . 221.) (&BODY . 221.)
         (&AUX . 221.) (&ALLOW-OTHER-KEYS . 221.) (&KEY . 221.) (&REST . 221.)
         (&OPTIONAL . 221.)
        )
      &ALLOW-OTHER-KEYS *KEYWORD-PACKAGE*
      #S(HASH-TABLE EQ (&ENVIRONMENT . 118.) (&WHOLE . 118.) (&BODY . 118.)
         (&AUX . 118.) (&ALLOW-OTHER-KEYS . 118.) (&KEY . 118.) (&REST . 118.)
         (&OPTIONAL . 118.)
        )
      #S(HASH-TABLE EQ (&ENVIRONMENT . 4.) (&WHOLE . 4.) (&BODY . 4.)
         (&AUX . 4.) (&ALLOW-OTHER-KEYS . 4.) (&KEY . 4.) (&REST . 4.)
         (&OPTIONAL . 4.)
        )
      "Lambda lists with dots are only allowed in macros, not here: ~S"
      "Eine Lambdaliste, die einen Punkt enthΣlt, ist nur bei Macros erlaubt, nicht hier: ~S"
      "Les listes lambdas contenant une paire pointΘe ne sont permises qu'avec des macros et non ici : ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-149
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   LAMBDALIST-ERROR REMOVE-OLD-DEFINITIONS
   #Y(LAMBDALIST-ERROR
      #27Y(02 00 01 00 01 00 00 00 00 02 C3 4F 0C D9 DA DB 6D 03 04 AF 2F 00 50
           19 02 19 02
          )
      C-ERROR "Illegal lambda list element ~S"
      "UnzulΣssiges Lambdalistenelement: ~S"
      "N'est pas permis dans une liste lambda : ~S" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-150
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   INLINE-CALLABLE-FUNCTION-LAMBDA-P REMOVE-OLD-DEFINITIONS
   #Y(INLINE-CALLABLE-FUNCTION-LAMBDA-P
      #177Y(00 00 00 00 02 00 01 00 00 09 3C 01 AD 31 07 1E 80 9D 93 03 C3 59
            1E 80 96 94 03 31 07 1E 80 8F 9E 5B 5B 58 1E 80 88 9E 5B 77 AA 31
            07 1E 80 7D 93 00 C4 59 1E 80 76 94 00 31 07 1E 80 6F 9B 5B 77 AA
            31 0E 1E 80 64 DA AB 37 06 31 62 58 1E 80 5A DB AB 37 06 31 62 58
            1E 80 50 DC AB 37 06 71 62 DD AC 37 06 71 62 DE AD 37 06 8D 62 03
            AC 31 4A 14 91 01 0D 91 06 1D 91 02 25 B1 AB 32 01 2D 19 09 A1 1D
            24 B1 91 03 01 9D 14 32 01 32 19 09 AB 31 9A 1A 05 B1 91 03 77 9C
            14 32 01 31 19 09 14 B2 96 02 32 02 31 19 09 19 09 19 06 19 05 19
            04
           )
      FUNCTION LAMBDA &KEY &ALLOW-OTHER-KEYS &OPTIONAL &REST &AUX
  )  )
#Y(#:TOP-LEVEL-FORM-151
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   INLINE-CALLABLE-FUNCTION-P REMOVE-OLD-DEFINITIONS
   #Y(INLINE-CALLABLE-FUNCTION-P
      #131Y(00 00 00 00 02 00 00 00 00 03 AC AC 2F 00 1D 80 70 AC 31 07 1E 80
            6A 93 02 C4 59 1E 80 63 94 02 31 07 1E 80 5C 9D 5B 5B 58 1E 80 55
            9D 5B 77 AA 2E 02 1E 80 4A AA 2E 03 58 1E 80 43 AA 8E 09 04 AA 8C
            55 31 58 1E 38 AA 2E 04 58 1E 32 0E 05 1C 0B AA 6A 06 DF 37 02 30
            BF 5B 1B 08 AA 6E 08 E1 37 01 31 86 14 AA 31 07 1E 13 D9 E2 9D 79
            7A 02 AE 2F 00 19 05 AA 30 5B 58 1E 04 1A 4A 19 05 19 04 19 03
           )
      INLINE-CALLABLE-FUNCTION-LAMBDA-P FUNCTION FUNCTION-NAME-P FENV-SEARCH
      DECLARED-NOTINLINE *COMPILING-FROM-FILE* *INLINE-DEFINITIONS* #.#'EQUAL
      GET-FUNNAME-SYMBOL INLINE-EXPANSION LAMBDA
  )  )
#Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *SPECIALS*) *SPECIALS*
  )
#Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *IGNORES*) *IGNORES*
  )
#Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *IGNORABLES*) *IGNORABLES*
  )
#Y(#:TOP-LEVEL-FORM-155
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   PUSH-SPECIALS REMOVE-OLD-DEFINITIONS
   #Y(PUSH-SPECIALS
      #22Y(00 00 00 00 00 00 00 00 00 01 98 00 98 01 6A 02 32 00 17 9A 00 01)
      PUSH-*VENV* MAKE-SPECIAL-VAR *SPECIALS*
  )  )
#Y(#:TOP-LEVEL-FORM-156
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   IGNORE-CHECK REMOVE-OLD-DEFINITIONS
   #Y(IGNORE-CHECK
      #86Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA 6A 02 DB 37 02 8B B8
           2F AA 6A 0E DB 37 02 8B B8 32 D8 AD DC 8D 32 2C D8 AD E2 8D 32 26 AA
           8E 8C 22 E7 E8 D4 14 6D 03 08 AB 2F 09 19 03 DD DE CA 1A 72 E3 E4 D0
           1A 6D D8 AD DC 8D 32 70 D8 AD E2 8D 32 6F 00 19 03
          )
      VAR 1. *IGNORES* #.#'EQ 2.
      "Binding variable ~S can cause side effects despite of IGNORE declaration~%since it is declared SPECIAL."
      "Binden der Variablen ~S kann trotz IGNORE-Deklaration~%Seiteneffekte haben, weil sie SPECIAL deklariert ist."
      "Lier la variable ~S peut avoir des effets de bord malgrΘ la dΘclaration IGNORE~%car elle a ΘtΘ dΘclarΘe SPECIAL."
      LANGUAGE C-WARN 5. "variable ~S is used despite of IGNORE declaration."
      "Variable ~S wird trotz IGNORE-Deklaration benutzt."
      "La variable ~S est utilisΘe malgrΘ la dΘclaration IGNORE." *IGNORABLES*
      "variable ~S is not used.~%Misspelled or missing IGNORE declaration?"
      "Variable ~S wird nicht benutzt.~%Schreibfehler oder fehlende IGNORE-Deklaration?"
      "La variable ~S n'est pas utilisΘe.~%Mauvaise orthographe ou dΘclaration IGNORE manquante?"
  )  )
#Y(#:TOP-LEVEL-FORM-157
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(C-MAKE-CLOSURE
      #33Y(00 00 00 00 03 00 00 00 00 04 91 03 03 00 19 04 D8 94 03 94 03 7A 03
           D9 AF 71 4A 7A 02 60 02 19 04
          )
      VENV MAKE-VECTOR1&PUSH
  )  )
#Y(#:TOP-LEVEL-FORM-158
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BIND-FIXED-VAR-1 REMOVE-OLD-DEFINITIONS
   #Y(BIND-FIXED-VAR-1
      #72Y(02 00 01 00 01 00 00 00 00 02 AB 8B 62 24 AB 87 00 20 AB 6A 01 DA 37
           02 8B B8 17 E2 AC E3 62 E4 62 E5 62 E6 62 E7 62 E8 6A 11 EA 6A 13 2C
           10 14 19 02 AB 88 03 0D C7 4F 0A DD DE DF 6D 03 08 AF 2F 04 50 AB 2E
           09 19 02
          )
      PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR
      "Constant ~S cannot be bound." "Konstante ~S kann nicht gebunden werden."
      "La constante ~S ne peut pas Ωtre liΘe." LANGUAGE MAKE-SPECIAL-VAR :NAME
      :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ *STACKZ*
      :VENVC *VENVC* MAKE-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-159
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BIND-FIXED-VAR-2 REMOVE-OLD-DEFINITIONS
   #Y(BIND-FIXED-VAR-2
      #33Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 8E 32 06 D8 AC DA 8E 32 03 00
           19 02 DB 0E 04 5C 0F 04 19 02
          )
      VAR 2. 3. (BIND 1.) *STACKZ*
  )  )
#Y(#:TOP-LEVEL-FORM-160
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-BIND-FIXED-VAR REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-FIXED-VAR
      #69Y(00 00 00 00 03 00 00 00 00 04 D8 AE D9 8D 32 09 D8 AE E0 8D 32 1C 00
           19 04 D8 AE DA 8D 32 77 DB AD 6A 04 AE 7A 04 DD D8 B0 DE 71 32 6E 07
           60 02 1A 0E DB AD 6A 04 AE 7A 04 E1 AF 6A 04 AF 60 04 14 60 02 19 04
          )
      VAR 2. 3. GET *VENVC* BIND 1. NEW-CONST 9. SET
  )  )
#Y(#:TOP-LEVEL-FORM-161
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   PROCESS-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-FIXED-VAR-LIST
      #79Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC AC 01 02 92 03 32 D8 0E 01 5C
           0F 01 DA 37 01 71 92 DB 62 DC 62 DD 62 DE A6 5A 58 14 DF 62 E0 6A 01
           E1 6A 0A 6D 10 0B 83 00 93 03 6E 0C 83 01 94 03 82 03 69 03 91 03 4E
           AB 71 4C AB 71 4C 3F 02 19 07
          )
      1. *STACKZ* :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP
      :STACKZ :VENVC *VENVC* MAKE-VAR BIND-FIXED-VAR-1
  )  )
#Y(#:TOP-LEVEL-FORM-162
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   UNMODIFY-UNUSED-VAR REMOVE-OLD-DEFINITIONS
   #Y(UNMODIFY-UNUSED-VAR
      #73Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 62 1A 30 9B 5B 77 DA AB
           DB C7 1A 20 86 01 00 5B 5B 1B 70 93 00 DA AB DD 31 32 5B 1B 06 DA AB
           DB 62 31 33 16 01 9B 5B 77 DA AB DB 00 14 31 33 16 01 82 01 AB 8C 97
           55 00 19 04
          )
      VAR 7. ANODE 3. ((VALUES1)) 2.
  )  )
#Y(#:TOP-LEVEL-FORM-163
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   CHECKING-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(CHECKING-FIXED-VAR-LIST
      #84Y(00 00 00 00 01 00 01 00 00 08 3C 01 62 AD 62 1A 3A D9 AB DC 62 31 33
           9F 5A 1C 0C D9 AB DD 71 32 DE 30 AD AE DF 30 AD AA 2E 08 1A 1B 86 01
           00 14 2E 00 D9 AB DA 8D 32 0F D9 AB DB 8E 32 53 D9 AB DC 8E 32 03 AA
           83 02 82 04 82 01 AB 8C 97 5D AC 31 4C 19 06
          )
      IGNORE-CHECK VAR 2. 6. 9. 10. 0. GONE UNMODIFY-UNUSED-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-164
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BOUND-TO-VAR-P REMOVE-OLD-DEFINITIONS
   #Y(BOUND-TO-VAR-P
      #54Y(00 00 00 00 02 00 00 00 00 03 D8 AD D9 8D 32 1E DA AC DB 71 32 71 4A
           24 04 14 DA AC DB 31 32 5A F7 DA AC 8D 36 6A 9C 1F 05 93 01 23 05 03
           00 19 03 9C 5B 5A 19 03
          )
      VAR 2. ANODE 3. 1. GET
  )  )
#Y(#:TOP-LEVEL-FORM-165
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
   #Y(BIND-MOVABLE-VAR
      #139Y(02 00 01 00 02 00 00 00 00 03 AC 8B 62 80 66 AC 87 00 80 61 AC 6A
            01 DA 37 02 8B B8 80 57 E5 0E 0A 5C 0F 0A E6 AD E7 62 E8 B0 6E 11
            EA B2 87 11 80 53 00 14 EC 62 ED 62 EE 62 EF 6A 0A F0 6A 19 6D 12
            1A AA AD 6F 1B 92 00 13 AB AE 7A 02 AA F4 AD F5 31 32 79 F4 AD F5
            AD 31 33 16 02 16 01 15 19 03 C7 4F 0D DD DE DF 6D 03 08 B0 2F 04
            50 CC 1A 08 CC 1A 05 AC 87 03 69 CE 14 0E 0A 5C 0F 0A AC 2E 0C 19
            03 B2 2E 13 1A FF A8
           )
      PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR
      "Constant ~S cannot be bound." "Konstante ~S kann nicht gebunden werden."
      "La constante ~S ne peut pas Ωtre liΘe." LANGUAGE 0. *STACKZ* (BIND 1.)
      MAKE-SPECIAL-VAR 1. :NAME :SPECIALP :CONSTANTP ANODE-CONSTANTP :CONSTANT
      ANODE-CONSTANT :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC *VENVC*
      MAKE-VAR BOUND-TO-VAR-P VAR 8.
  )  )
#Y(#:TOP-LEVEL-FORM-166
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-MOVABLE-VAR
      #71Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 8D 32 12 D8 AC DE 8D 32 1E D8
           AC E1 31 32 77 8E 94 25 00 19 02 D8 AC DA 8D 32 77 DB D8 AD DC 71 32
           6E 05 60 02 1A 0B DF AC 6A 08 D8 AF E1 71 32 60 04 14 60 01 19 02 CD
           19 02
          )
      VAR 2. 3. BIND 1. NEW-CONST 9. SET *VENVC* 10. ((PUSH))
  )  )
#Y(#:TOP-LEVEL-FORM-167
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-MOVABLE-VAR-ANODE
      #61Y(00 00 00 00 02 00 00 00 00 03 D8 D9 AE 6E 02 6D 03 03 AD AD 6F 04 92
           00 1C DD AB DE 71 32 62 1A 0E 86 01 00 77 A2 22 05 94 00 AE 30 AF 82
           01 AB 8C 97 6E 16 02 16 01 AC AB 60 02 19 04
          )
      BIND-MOVABLE (NIL) C-BIND-MOVABLE-VAR MK-ANODE BOUND-TO-VAR-P VAR 8.
  )  )
#Y(#:TOP-LEVEL-FORM-168
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   PROCESS-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-MOVABLE-VAR-LIST
      #76Y(00 00 00 00 03 00 00 00 00 04 AD AD 01 03 92 04 26 93 03 AA D8 6F 01
           93 06 AB 6F 02 AB 83 04 AA 83 05 6A 03 83 03 92 09 03 AA 2E 04 16 03
           94 04 82 04 69 04 91 04 5A 91 06 05 98 04 9E 36 00 AC 71 4C AC 71 4C
           AC 71 4C 3F 03 19 09
          )
      ONE C-FORM BIND-MOVABLE-VAR *STACKZ* PUSH-*VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-169
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   CHECKING-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(CHECKING-MOVABLE-VAR-LIST
      #156Y(00 00 00 00 02 00 00 00 00 03 AC AC 62 92 02 37 93 02 92 00 27 14
            2E 00 D9 AB DA 8D 32 1E D9 AB DB 8D 32 28 D9 AB E0 8E 32 80 47 D9
            AB DC 8E 32 0B D9 AB DD 71 32 DE 30 AD AA 83 01 16 01 94 02 82 02
            69 02 91 02 49 AA 31 4C 19 06 D9 AB DC 62 31 33 D9 AB DD 71 32 DE
            30 AD 93 02 DF AB DA 31 32 16 01 5B 1B 56 93 02 DF AB DB 62 31 33
            16 01 1A 4A D9 AB DC 62 31 33 D9 AB DD 71 32 DE 30 AD 93 02 DF AB
            DA 31 32 16 01 5B 1B 0A 93 02 DF AB DB 62 31 33 16 01 AA 2E 09 1A
            FF A0
           )
      IGNORE-CHECK VAR 2. 3. 9. 10. 0. ANODE 6. UNMODIFY-UNUSED-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-170
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   OPTIMIZE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-VAR-LIST
      #196Y(00 00 00 00 01 00 00 00 00 02 0E 00 1B 07 AB 71 4B 62 1A 80 A7 00
            19 02 86 01 00 1C 80 9C D9 AB DA 8D 32 80 95 D9 AB DB 8D 32 80 8E
            D9 AB DC 71 32 62 1A 80 7E 86 01 00 77 D9 AB DA 8D 32 80 6F D9 AB
            DB 8D 32 80 68 D9 AB DD 8D 32 80 61 D9 AB DE 31 32 77 23 07 80 57
            9C 5B 5B 1C 80 51 D9 AB DE 71 32 DF 30 AD 9C 5B 77 E0 AB E1 62 31
            33 16 01 9C 5B 78 E0 AB E1 62 31 33 16 01 D9 AE E2 71 32 D9 AC E2
            71 32 1A 1A 93 00 E0 AB E1 71 32 92 00 0C 93 00 94 00 B3 30 AD 16
            01 AB 83 03 16 02 82 00 9B 20 63 16 01 D9 AF E2 AD 31 33 16 01 16
            01 82 01 AB 8C 97 FF 7D 16 02 82 01 AB 8C 97 FF 57 00 19 04
           )
      *NO-CODE* VAR 2. 9. 8. 7. 10. 0. ANODE 3. 5.
  )  )
#Y(#:TOP-LEVEL-FORM-171
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-BIND-WITH-SVARS REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-WITH-SVARS
      #210Y(00 00 00 00 06 00 00 00 00 00 B0 B0 B0 B0 B0 B0 62 92 06 80 63 9F
            5A 1C 0A 93 04 93 03 6F 00 AB 7F A6 00 93 06 93 06 93 05 93 04 D9
            6E 02 DB AF DC 8D 32 80 4D DB AF E3 8D 32 80 67 DB AF E5 8E 32 80
            83 DD AE 6A 06 AE AE 7A 05 AD E4 B1 6A 06 B0 7A 04 9E 14 60 04 16
            04 F6 AB 7F A6 00 94 06 94 06 94 06 94 06 94 06 82 06 69 06 69 06
            69 06 69 06 69 06 91 06 FF 9D AA 31 4C 19 0E 00 61 03 1A 55 DD AE
            6A 06 AE AE 7A 05 AD AC DB B2 DF 8D 32 6B E0 DB B3 E1 71 32 6E 0A
            7A 02 60 01 61 03 1A FF B4 DD AE 6A 06 AE AE 7A 05 AD AC E4 B2 6A
            06 B1 60 04 1A FF 9D DD AE 6A 06 AE AE 7A 05 AD AC 60 03 1A FF 91
            E6 AD DC 31 32 5B 1B 69 00 1A FF 85
           )
      C-BIND-MOVABLE-VAR-ANODE ONE MAKE-LABEL VAR 2. JMPIFBOUNDP *VENVC* 3.
      BIND 1. NEW-CONST 9. SET 6. ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-172
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-LAMBDABODY REMOVE-OLD-DEFINITIONS
   #Y(C-LAMBDABODY
      #798Y(02 00 01 00 02 00 03 00 00 12 3C 03 3C 02 3C 01 AE D8 2F 01 DA B0
            DB 6A 04 DD 6A 06 2C 06 07 10 04 0E 04 10 08 6A 04 0E 06 5C 10 06
            62 2E 09 10 0A CE 10 0C D0 4F 81 B7 91 15 82 D0 93 16 2E 0E 41 0D
            6A 04 B7 71 4A E7 AC E8 AD 31 33 16 02 6A 04 B6 71 4A E7 AC E9 AD
            31 33 16 02 6A 04 B3 CE 59 58 14 E7 AC EA AD 31 33 16 02 6A 04 E7
            AB EB B5 31 33 16 01 6A 04 E7 AB EC B4 31 33 16 01 6A 04 E7 AB ED
            B0 31 33 16 01 92 22 09 6A 04 93 23 AB 30 AD 16 01 94 23 63 6A 16
            6A 17 72 02 00 30 63 41 02 6A 08 0E 08 10 08 0E 18 10 18 0E 16 10
            16 0E 06 10 06 00 10 19 00 10 1A 00 10 1B 01 16 65 2C 2E 1C 41 03
            15 0F 1B 15 0F 1A 15 0F 19 2D 1D 62 0E 06 5C 0F 06 F6 65 3A 65 4F
            2F 1E 41 02 69 15 69 15 65 39 2E 1E 41 02 69 12 69 12 65 36 23 0B
            82 1F 65 36 7A 01 2E 1E 41 02 69 0C 69 0C 65 33 2E 1E 41 02 69 09
            69 09 D8 0E 08 5C 0F 08 E3 0E 08 5C 0F 08 F7 BF 2E 1F 09 13 BC BC
            65 3A 65 3A 2C 04 20 41 04 69 11 69 11 69 0E 69 10 65 36 23 0B 05
            B6 2E 21 09 0A B3 B3 65 34 65 34 2C 04 20 41 04 69 08 69 08 69 05
            69 07 65 2F 65 2F 2F 22 41 02 69 03 69 03 64 23 04 2E 79 64 24 6F
            25 C0 65 50 6F 26 BE 6E 26 BC BC 6F 27 BA 6E 26 B8 6E 26 B6 B6 6F
            27 B4 B4 6F 27 72 07 23 6A 0A AB AE B0 6D 03 28 98 29 65 1A 65 1A
            65 1A 6D 04 2A C1 C1 C0 C2 C1 C1 6D 06 2B 98 29 BD BD BD 6D 04 2A
            BA BA B9 BB BA BA 6D 06 2B 98 2C B6 B6 6D 03 2A B2 64 2D 6A 08 65
            37 03 2E 7B 03 03 2F 7B 02 32 07 23 79 64 30 64 31 AC 6D 03 32 92
            02 0A AF D8 30 AD AE AD A2 79 30 AD 65 19 C1 BF BD BB B9 B7 72 07
            23 2E 33 15 16 19 12 07 16 10 50 14 6A 04 E7 AB 64 34 AE 31 33 16
            01 92 11 19 6A 04 E7 AB E8 71 32 64 35 BE 37 06 71 65 72 01 36 E7
            AC E8 AD 31 33 16 02 64 36 AB D8 71 32 24 37 80 50 6A 04 E7 AB E8
            E3 31 33 16 01 6A 04 E7 AB E9 E3 31 33 16 01 6A 04 E7 AB EA 63 31
            33 16 01 6A 04 E7 AB EB 62 31 33 16 01 6A 04 E7 AB EC 62 31 33 16
            01 6A 04 E7 AB ED 62 31 33 16 01 6A 04 E7 AB 64 34 80 32 00 64 36
            AB 64 38 64 39 31 33 16 01 6A 04 E7 AB 64 3A C0 31 33 16 01 6A 04
            6A 04 6A 04 6A 04 6A 04 E7 AB 64 38 31 32 16 01 1B 80 89 CE 14 E7
            AC 64 3B AD 31 33 16 01 F6 6A 04 E7 AB 64 3C 80 32 00 71 4A 72 02
            35 E7 AC 64 3D AD 31 33 16 01 F6 6A 04 E7 AB 64 3E 80 32 00 71 4A
            72 02 35 E7 AC 64 3F AD 31 33 16 01 F6 6A 04 E7 AB EC 80 32 00 71
            4A 72 02 35 E7 AC 64 40 AD 31 33 16 02 92 12 1E 6A 04 E7 AB 64 3C
            31 32 16 01 1B 0C 6A 04 E7 AB 64 3E 31 32 16 01 1C 06 64 41 64 42
            2F 43 0E 04 16 01 12 05 19 06 5A 5B 5B 43 1A FD 2D 01 02 3F 02 1A
            FD E0 C3 1A FF 74
           )
      1. TEST-LIST :NAME :ENCLOSING *FUNC* :VENVC *VENVC* MAKE-FNODE *STACKZ*
      MAKE-LABEL *FUNC-START-LABEL* 0. *ANONYMOUS-COUNT* C-ERROR
      ANALYZE-LAMBDALIST FNODE 10. 11. 12. 13. 14. 15. *VENV* *FENV* *DENV*
      *SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
      PROCESS-FIXED-VAR-LIST BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS
      BIND-AUX-VARS PROGN ALL C-FORM CHECKING-FIXED-VAR-LIST
      CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-FIXED-VAR MAPCAP
      C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND (T) ((RET)) LAMBDABODY
      (T . T) MK-ANODE OPTIMIZE-VAR-LIST 2. GONE ANODE ERROR 3.
      ((NIL) (SKIP 2.) (RET)) 20. 5. 6. 7. 8. 9. 16. C-LAMBDABODY "GF"
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-173
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BIND-REQ-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-REQ-VARS
      #41Y(00 00 00 00 01 00 00 00 00 02 62 AC 62 1A 0F 86 01 00 14 2E 00 6A 01
           83 02 AA 2E 02 82 01 AB 8C 97 6D 16 02 AA 31 4C 19 03
          )
      PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
  )  )
#Y(#:TOP-LEVEL-FORM-174
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BIND-OPT-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-OPT-VARS
      #133Y(00 00 00 00 04 00 00 00 00 05 01 04 B2 B2 B2 B2 92 03 80 56 93 00
            23 00 80 62 D9 93 03 7A 01 00 79 DA 93 05 6A 03 6A 04 7A 04 7A 01
            6D 03 05 93 01 AB 6F 06 AB 83 06 AA 83 07 16 02 93 01 DF 6F 08 83
            07 93 03 2E 09 6A 04 83 06 93 03 2E 0A 93 00 23 00 04 93 05 2E 09
            94 03 94 03 94 03 82 03 69 03 69 03 69 03 91 03 FF AA 16 04 AD 71
            4C AD 71 4C AD 71 4C AD 71 4C 3F 04 19 09 62 83 05 62 83 04 1A FF
            B7
           )
      0. OPTIONAL-SVAR BOUNDP *VENVC* *STACKZ* MK-ANODE BIND-MOVABLE-VAR ONE
      C-FORM PUSH-*VENV* BIND-FIXED-VAR-2
  )  )
#Y(#:TOP-LEVEL-FORM-175
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BIND-REST-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-REST-VARS
      #26Y(00 00 00 00 01 00 00 00 00 02 62 93 02 2E 00 6A 01 83 00 93 02 2E 02
           15 19 02
          )
      PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
  )  )
#Y(#:TOP-LEVEL-FORM-176
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BIND-AUX-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-AUX-VARS
      #60Y(00 00 00 00 02 00 00 00 00 03 01 02 AE AE 92 01 1F 93 00 AA D8 6F 01
           93 03 AB 6F 02 AB 83 05 AA 83 06 AA 2E 03 16 03 94 01 82 01 69 01 91
           01 61 16 02 AB 71 4C AB 71 4C 3F 02 19 05
          )
      ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-177
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-FNODE-FUNCTION REMOVE-OLD-DEFINITIONS
   #Y(C-FNODE-FUNCTION
      #226Y(00 00 00 00 01 00 01 00 00 08 3A 01 02 0E 00 10 00 D9 DA DB B2 DC
            71 32 8D 94 11 DB B2 DE 8D 32 14 00 14 62 DB B4 E3 71 32 1A 80 52
            DD B2 7A 02 60 01 1A 80 A6 DF DB B3 E0 71 32 6A 00 7A 03 CC 79 E2
            0E 00 5C 0F 00 15 1A 58 E6 AB 60 02 1A 1D 93 00 AA 6A 0C DB AB E3
            80 32 00 E5 37 02 8B B8 69 E7 E8 AC E0 71 32 6A 11 6A 00 60 04 14
            D5 79 E2 0E 00 5C 0F 00 AD 7F A6 02 16 01 82 00 9B 20 4F 16 01 AA
            7F A8 00 62 DB B5 EB 71 32 1A 35 EC AB 60 02 1A 1D 93 00 AA 6A 0C
            DB AB EB 80 32 00 E5 37 02 8B B8 69 E7 ED AC E0 71 32 6A 11 6A 00
            60 04 14 03 16 79 E2 0E 00 5C 0F 00 AD 7F A6 02 16 01 82 00 9B 20
            4E 16 01 AA 7F A8 00 EF B5 DB B7 DC 71 32 7A 03 7A 01 32 04 23 14
            2C 03 18 11 19 03
           )
      *STACKZ* FUNCTION (NIL) FNODE 9. FCONST 3. VENV 4. ((PUSH)) 1. 6. *FUNC*
      #.#'EQ BCONST GET BLOCK *VENVC* ((PUSH)) 8. GCONST TAGBODY ((PUSH))
      COPY-CLOSURE MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-178
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-PROGN
   REMOVE-OLD-DEFINITIONS
   #Y(C-PROGN
      #84Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 92 00 31 9B 5B
           1C 31 DD 62 AC 92 00 1D 93 00 82 01 AA 92 02 29 00 14 6F 04 AE DF AC
           E0 71 32 2F 09 FA AA 83 03 16 02 91 00 63 E2 AD AD 71 4C 2C 03 0B 19
           05 2D 03 19 02 93 00 2E 04 19 02 0E 06 1A 54
          )
      *FORM* 1. TEST-LIST C-NIL C-FORM (NIL) *FOR-VALUE* ANODE 2. SECLASS-OR-2
      PROGN MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-179
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-PROG1
   REMOVE-OLD-DEFINITIONS
   #Y(C-PROG1
      #87Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 3B 6A 03 24 04
           06 0E 00 5B 5B 1C 30 0E 00 5B 77 DC 6F 06 DF 0E 08 5C 10 08 DD 0E 00
           5B 5B 79 62 2F 06 11 14 E1 E2 AD D9 71 32 E2 AD D9 71 32 6F 0B AD E4
           AE D0 7B 03 2C 03 0E 19 03 DD 0E 00 5B 79 2E 06 19 01
          )
      *FORM* 2. TEST-LIST *FOR-VALUE* ONE PROGN C-FORM 1. *STACKZ* PROG1 ANODE
      SECLASS-OR-2 (PUSH) ((POP)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-180
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-PROG2
   REMOVE-OLD-DEFINITIONS
   #Y(C-PROG2
      #39Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 DC 0E 00
           5B 5B 77 0E 00 5B 5B 5B 7B 02 7A 03 2E 05 19 01
          )
      *FORM* 3. TEST-LIST PROGN PROG1 C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-181
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-IF
      #126Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 0E
            00 5B 5B 77 0E 00 5B 5B 5B 77 AC DC 6F 05 AA 87 06 80 43 AC 6E 05
            AC 6E 05 62 6E 09 6A 0A 6E 09 E3 E4 B0 E5 71 32 E4 B0 E5 71 32 6F
            0E E4 AF E5 71 32 6F 0E B0 E7 AF 7A 02 B1 E8 B0 7A 02 B1 B3 B2 7A
            07 2C 03 11 19 09 AC 6E 05 02 10 08 AF 62 2F 05 11 15 19 05 AA 87
            07 6E 02 10 08 AF 62 2F 05 11 AB 2E 05 3E 19 05
           )
      *FORM* 3. 4. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE
      *NO-CODE* MAKE-LABEL *FOR-VALUE* IF ANODE 2. SECLASS-OR-2 JMPIFNOT JMP
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-182
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-WHEN
   REMOVE-OLD-DEFINITIONS
   #Y(C-WHEN
      #32Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 DC 0E 00
           5B 5B 79 7A 03 2E 05 19 01
          )
      *FORM* 2. TEST-LIST IF PROGN C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-183
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-UNLESS
   REMOVE-OLD-DEFINITIONS
   #Y(C-UNLESS
      #33Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 62 DC 0E
           00 5B 5B 79 7A 04 2E 05 19 01
          )
      *FORM* 2. TEST-LIST IF PROGN C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-184
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-AND
   REMOVE-OLD-DEFINITIONS
   #Y(C-AND
      #170Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 1C 80 52 0E
            00 5B 5B 1C 80 53 E0 62 0E 00 78 6A 09 6E 0A 92 01 32 93 01 82 02
            AA 92 03 80 46 CE 14 6F 07 AF E4 AC E5 71 32 2F 0E FB 92 03 3B AA
            87 0F 3A AA 83 04 0E 09 1B 80 59 D7 14 AD 60 02 14 83 04 16 02 91
            01 4E AA 83 02 DB AE AE 71 4C 2C 03 06 19 05 DB DC DD 2C 03 06 19
            01 0E 00 5B 77 2E 07 19 01 0E 09 1A FF B6 9B 1A 53 AA 87 10 52 0E
            09 1C 03 E9 83 04 02 10 12 B0 62 1A 09 86 01 00 14 62 2F 07 82 01
            AB 8C 97 73 16 02 11 7C 03 1A FF AF D6 1A FF A4
           )
      *FORM* 1. TEST-LIST AND (NIL) ((T)) MK-ANODE C-FORM (NIL) *FOR-VALUE*
      MAKE-LABEL ONE ANODE 2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE
      (NIL) *NO-CODE* JMPIFNOT1 JMPIFNOT
  )  )
#Y(#:TOP-LEVEL-FORM-185
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-OR
   REMOVE-OLD-DEFINITIONS
   #Y(C-OR
      #170Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 1C 80 52 0E
            00 5B 5B 1C 80 53 E0 62 0E 00 78 6A 09 6E 0A 92 01 32 93 01 82 02
            AA 92 03 80 46 CE 14 6F 07 AF E4 AC E5 71 32 2F 0E FB 92 03 3B AA
            87 0F 3A AA 83 04 0E 09 1B 80 59 D6 14 AD 60 02 14 83 04 16 02 91
            01 4E AA 83 02 DB AE AE 71 4C 2C 03 06 19 05 DB DC DD 2C 03 06 19
            01 0E 00 5B 77 2E 07 19 01 0E 09 1A FF B6 9B 1A 53 AA 88 10 52 0E
            09 1C 03 AA 83 04 02 10 11 B0 62 1A 09 86 01 00 14 62 2F 07 82 01
            AB 8C 97 73 16 02 11 7C 03 1A FF AF D5 1A FF A4
           )
      *FORM* 1. TEST-LIST OR (NIL) ((NIL)) MK-ANODE C-FORM (NIL) *FOR-VALUE*
      MAKE-LABEL ONE ANODE 2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE
      *NO-CODE* JMPIF1 JMPIF
  )  )
#Y(#:TOP-LEVEL-FORM-186
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-QUOTE
   REMOVE-OLD-DEFINITIONS
   #Y(C-QUOTE
      #44Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB DC
           0E 05 1B 07 00 14 2C 03 08 19 02 DE AD 6E 07 7A 02 60 01 1A 70
          )
      *FORM* 2. TEST-LIST QUOTE (NIL) *FOR-VALUE* CONST NEW-CONST MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-187
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-THE
   REMOVE-OLD-DEFINITIONS
   #Y(C-THE
      #26Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 5B 77 2E
           03 19 01
          )
      *FORM* 3. TEST-LIST C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-188
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-DECLARE
   REMOVE-OLD-DEFINITIONS
   #Y(C-DECLARE
      #27Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 DB DC DD 6D 03 06 6A 00
           2F 07 19 01
          )
      *FORM* 1. TEST-LIST "Misplaced declaration: ~S"
      "Deklarationen sind an dieser Stelle nicht erlaubt: ~S"
      "Une dΘclaration n'est pas permise ici : ~S" LANGUAGE C-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-189
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-LOAD-TIME-VALUE REMOVE-OLD-DEFINITIONS
   #Y(C-LOAD-TIME-VALUE
      #84Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 DC DD
           0E 06 1C 32 DF 0E 08 1B 1C E2 E3 E4 B0 70 5F D1 14 B2 2C 06 0F 14 7A
           02 60 01 1A 1B E2 E3 E4 B0 6E 0D D1 1A 6B AD 8E 09 04 AD 87 09 6F E2
           E6 E6 B0 2C 04 0F 1A 5F 00 14 2C 03 10 19 02
          )
      *FORM* 2. 3. TEST-LIST LOAD-TIME-VALUE (NIL) *FOR-VALUE* CONST
      *COMPILING-FROM-FILE* C-CONSTANTP :HORIZONT :ALL :VALUE C-CONSTANT-VALUE
      :FORM MAKE-CONST MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-190
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-CATCH
   REMOVE-OLD-DEFINITIONS
   #Y(C-CATCH
      #70Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 6F 04 DD
           0E 06 5C 10 06 DF 0E 00 5B 5B 79 2E 04 11 14 6A 08 6E 09 DD E2 AE D9
           71 32 E2 AE D9 71 32 6F 0B AE E4 AE 7A 02 AF E5 B0 7A 05 2C 03 0E 19
           04
          )
      *FORM* 2. TEST-LIST ONE C-FORM CATCH *STACKZ* PROGN *FOR-VALUE*
      MAKE-LABEL ANODE SECLASS-OR-2 CATCH-OPEN (CATCH-CLOSE) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-191
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-THROW
   REMOVE-OLD-DEFINITIONS
   #Y(C-THROW
      #67Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB 6F
           04 DD 0E 06 5C 10 06 0E 00 5B 5B 77 DF 2F 04 11 14 E0 E1 AD E2 71 32
           E1 AD E2 71 32 2F 0B 77 02 79 AD E4 AE D0 7B 03 2C 03 0E 19 03
          )
      *FORM* 3. TEST-LIST ONE C-FORM 1. *STACKZ* ALL THROW ANODE 2.
      SECLASS-OR-2 (PUSH) ((THROW)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-192
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-UNWIND-PROTECT REMOVE-OLD-DEFINITIONS
   #Y(C-UNWIND-PROTECT
      #102Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 04 5C 10 04 0E
            00 5B 77 2E 05 11 14 DE 0E 04 5C 10 04 DF 0E 00 5B 5B 79 62 2F 05
            11 14 62 6E 08 DB E1 AE D9 71 32 E1 AE D9 71 32 6F 0A E3 AD 7A 02
            AF 0E 0C 25 0D 09 D1 1A 07 D2 1A 04 00 1A 01 00 14 E8 B0 B2 E9 B3
            7A 02 7A 04 32 02 23 7B 02 2C 03 12 19 04
           )
      *FORM* 2. TEST-LIST UNWIND-PROTECT *STACKZ* C-FORM CLEANUP PROGN
      MAKE-LABEL ANODE SECLASS-OR-2 UNWIND-PROTECT-OPEN *FOR-VALUE*
      #S(HASH-TABLE EQ (T . 7.) (ONE . 4.) (NIL . 1.)) ((VALUES0)) ((VALUES1))
      (UNWIND-PROTECT-NORMAL-EXIT) UNWIND-PROTECT-CLOSE MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-193
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-PROGV
   REMOVE-OLD-DEFINITIONS
   #Y(C-PROGV
      #173Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 6F 04
            AA 88 05 05 AA 88 06 80 69 E0 0E 09 79 9B 10 09 0E 00 5B 5B 77 DB
            2F 04 11 14 E2 0E 09 79 9B 10 09 DF 0E 00 5B 5B 5B 79 2E 04 11 14
            63 E3 AC E4 31 32 5A 1B 0A AE E5 30 AD AC E5 30 AD 7C 00 E2 E3 B1
            E4 71 32 E3 B0 E4 71 32 6F 0E E3 AE E4 71 32 6F 0E B1 91 03 2E 00
            14 B1 91 05 2B 00 14 B1 91 07 28 00 79 32 02 23 79 32 02 23 79 2C
            03 13 19 07 DF 0E 00 5B 5B 77 DF 0E 00 5B 5B 5B 79 7A 03 2E 04 19
            02 D2 1A 50 D3 1A 53 E9 B4 6A 09 6A 12 7A 04 60 01 1A 4D
           )
      *FORM* 3. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE PROGN
      1. *STACKZ* PROGV ANODE 2. 0. SECLASS-OR-2 ((PUSH)) ((PROGV)) UNWIND
      *FOR-VALUE* MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-194
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MULTIPLE-VALUE-PROG1 REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-PROG1
      #127Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 25 04 80 67 E5
            E6 E7 E8 E9 EA EB 6D 06 14 7A 02 ED AF EE B0 03 17 61 05 1A 3D DD
            0E 06 79 9B 10 06 0E 00 5B 77 2E 07 11 14 E0 0E 06 5C 10 06 E1 0E
            00 5B 5B 79 62 2F 07 11 14 E2 E3 AD D9 71 32 E3 AD D9 71 32 6F 0C
            E3 AD D9 31 32 5B 1B FF B4 AE F0 30 AD AD 60 01 14 2C 03 19 19 04
            03 1A 1A 01 CC 14 0E 00 5B 79 2E 07 19 01 00 19 01
           )
      *FORM* 2. TEST-LIST *FOR-VALUE*
      #S(HASH-TABLE EQ (NIL . 95.) (ONE . 91.) (ALL . 24.)) MVCALLP *STACKZ*
      C-FORM MVCALL PROGN MULTIPLE-VALUE-PROG1 ANODE SECLASS-OR-2 CONST
      :HORIZONT :ALL :VALUE #.#'VALUES :FORM #'VALUES MAKE-CONST (MVCALLP)
      (MV-TO-STACK) ((MVCALL)) 0. MK-ANODE PROG1
  )  )
#Y(#:TOP-LEVEL-FORM-195
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MULTIPLE-VALUE-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-CALL
      #105Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 1C 80 47
            0E 00 5B 77 DC 6F 05 62 AB 83 00 DE 83 00 0E 00 5B 78 DF 92 01 22
            93 01 82 02 AB 8D 94 32 CC 14 0E 0A 5C 10 0A AD E3 2F 05 11 14 AA
            83 04 E4 83 04 16 02 84 00 91 01 5E 16 02 E5 83 00 E6 E7 AC 71 4C
            2C 03 10 19 03 0E 00 5B 77 62 2F 03 19 01 CB 1A 4C
           )
      *FORM* 2. TEST-LIST C-FUNCTION-CALL ONE C-FORM (MVCALLP) 0. MVCALLP
      MVCALL *STACKZ* ALL (MV-TO-STACK) (MVCALL) MULTIPLE-VALUE-CALL (T . T)
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-196
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MULTIPLE-VALUE-LIST REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-LIST
      #50Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 03 1B 08 0E 00
           5B 77 2E 05 19 01 0E 00 5B 77 DC 6F 05 DE DF AC D9 71 32 AC CB 79 2C
           03 09 19 02
          )
      *FORM* 2. TEST-LIST *FOR-VALUE* ALL C-FORM MULTIPLE-VALUE-LIST ANODE
      ((MV-TO-LIST)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-197
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
   #Y(SETQLIST-MACROP
      #39Y(00 00 00 00 01 00 00 00 00 02 AB 92 00 13 93 00 AA 8E 09 04 AA 87 00
           0C 16 01 9B 5B 5B F6 91 00 6D 00 19 03 02 19 04
          )
      VENV-SEARCH-MACRO
  )  )
#Y(#:TOP-LEVEL-FORM-198
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-SETQ
   REMOVE-OLD-DEFINITIONS
   #Y(C-SETQ
      #167Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 4A 8E 98 0A
            DB DC DD 6D 03 06 6A 00 2F 07 0E 00 5B 1C 3E 0E 00 78 87 09 3C 0E
            00 78 E6 62 92 02 26 93 02 9E 5B 77 AA E7 6F 0D AC 8D 09 3C CA 4F
            0A ED EE EF 6D 03 06 B0 2F 07 50 F0 83 03 16 03 9D 5B 5B F8 91 02
            5A F1 AC AC 71 4C 2C 03 1A 19 04 2D 08 19 01 E2 70 5B E2 0E 00 5B
            79 6A 0B 6A 0C 72 02 00 75 02 2E 0D 19 01 AA 83 03 AE E8 AC E9 71
            32 2F 12 FA AC AB 0E 13 1C 04 A2 5B 5B 58 14 6D 03 14 AA 83 04 AF
            E8 AC E9 71 32 2F 12 FB 16 01 1A FF A9
           )
      *FORM* 1. TEST-LIST "Odd number of arguments to SETQ: ~S"
      "Ungerade viele Argumente zu SETQ: ~S"
      "Nombre impair d'arguments pour SETQ : ~S" LANGUAGE C-ERROR C-NIL
      SETQLIST-MACROP SETF *VENV* *FENV* C-FORM (NIL) ONE ANODE 2. SECLASS-OR-2
      *FOR-VALUE* C-VARSET "Cannot assign to non-symbol ~S."
      "Zuweisung auf ~S unm÷glich, da kein Symbol."
      "Rien ne peut Ωtre assignΘ α ~S car ce n'est pas un symbole." (VALUES1)
      SETQ MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-199
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-PSETQ
   REMOVE-OLD-DEFINITIONS
   #Y(C-PSETQ
      #260Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 4A 8E 98 0A
            DB DC DD 6D 03 06 6A 00 2F 07 0E 00 5B 1C 80 9F 0E 00 78 87 09 80
            9C 01 02 0E 00 78 92 00 23 93 00 82 01 93 01 82 02 AA E6 6F 0D AC
            8D 09 80 98 CA 4F 0A EA EB EC 6D 03 06 B0 2F 07 50 16 03 91 00 5D
            16 01 01 02 ED AE AE 92 01 80 4A 93 01 93 01 EE AB EF 71 32 AF 89
            18 80 81 EE AC EF 71 32 AF 89 18 80 80 F1 83 06 AB 83 06 F2 83 05
            AA 83 05 6A 11 D9 30 AD AE EE AD EF 71 32 EE AD EF 71 32 6F 1B 2F
            1B FA 0E 11 5B 0F 11 16 02 94 01 82 01 69 01 91 01 FF B6 16 02 0E
            1C 1C 03 F5 83 01 64 1E AB AE AE 71 4C 72 02 24 2C 03 1F 19 06 2D
            08 19 01 E2 70 5B E2 0E 00 5B 79 6A 0B 6A 0C 72 02 00 75 02 2E 0D
            19 01 AA 83 05 AC AB 62 6D 03 0F 83 04 E8 0E 11 5C 0F 11 1A FF 61
            AA 83 06 AB 83 06 1A FF 91 AB 83 05 AA 83 05 1A FF 88
           )
      *FORM* 1. TEST-LIST "Odd number of arguments to PSETQ: ~S"
      "Ungerade viele Argumente zu PSETQ: ~S"
      "Nombre impair d'arguments pour PSETQ : ~S" LANGUAGE C-ERROR C-NIL
      SETQLIST-MACROP PSETF *VENV* *FENV* C-FORM ONE C-VARSET 0. *STACKZ*
      "Cannot assign to non-symbol ~S."
      "Zuweisung auf ~S unm÷glich, da kein Symbol."
      "Rien ne peut Ωtre assignΘ α ~S car ce n'est pas un symbole." (NIL) ANODE
      2. SECLASSES-COMMUTE (PUSH) (POP) SECLASS-OR-2 *FOR-VALUE* (NIL) PSETQ
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-200
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MULTIPLE-VALUE-SETQ REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-SETQ
      #223Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB
            2F 02 0E 00 5B 77 62 1A 80 57 16 02 DD 0E 00 5B 79 2E 06 19 01 D0
            1A 0D E1 E2 AF E3 71 32 AF 6A 0C 23 07 71 00 79 2C 03 0E 1A 80 9A
            AA E7 E8 62 6D 03 0E 0E 0C 1C 02 9E 58 14 6D 03 11 AA 83 02 AD E2
            AC E3 71 32 2F 12 F9 16 01 1A 80 51 82 00 1A 80 69 86 01 00 14 8E
            09 05 AA 87 04 FF AB 82 01 AB 8C 97 6E 16 02 0E 00 5B 77 71 4A 0E
            00 5B 5B 77 DF 6F 06 0E 08 10 08 AE 8D 94 FF 9A 0E 00 5B 77 E2 AF
            E3 71 32 62 92 02 24 93 02 AA 8D 09 FF 9A D6 4F 0A EC ED EE 6D 03
            17 AE 2F 13 50 16 01 F0 83 00 F1 0E 08 5C 0F 08 82 02 91 02 5C B1
            F1 8F 01 2D FF 98 F2 B2 7A 02 83 00 E1 AC B2 9E 79 2C 03 0E 16 03
            11 19 03
           )
      *FORM* 3. TEST-LIST 0. VENV-SEARCH-MACRO MULTIPLE-VALUE-SETF C-FORM ALL
      *STACKZ* MULTIPLE-VALUE-SETQ ANODE 2. *FOR-VALUE* ((VALUES1)) MK-ANODE
      NOP (NIL) C-VARSET SECLASS-OR-2 C-ERROR "Cannot assign to non-symbol ~S."
      "Zuweisung auf ~S unm÷glich, da kein Symbol."
      "Rien ne peut Ωtre assignΘ α ~S car ce n'est pas un symbole." LANGUAGE
      (POP) 1. NV-TO-STACK
  )  )
#Y(#:TOP-LEVEL-FORM-201
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-PARALLEL-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
   #Y(C-PARALLEL-BIND-MOVABLE-VAR-ANODE
      #196Y(00 00 00 00 03 00 01 00 00 0A 3C 01 01 02 B0 B0 AF 72 02 23 B0 1A
            80 67 93 02 DC 37 01 71 92 DD 62 DE 62 DF B1 6D 08 08 AA AE 0E 09
            78 7A 03 83 08 93 01 6A 09 AB 9C 5B 79 AB AB 30 AF 16 03 AB DA 30
            AD AA AD 2F 0A 16 02 1A 27 93 02 93 02 D8 AC D9 8E 32 19 00 2A 01
            D8 AD DA 31 32 0B 00 00 AA 6C 03 01 94 05 32 00 27 16 01 1B FF AA
            AB AB 2F 0A 16 01 F6 AE 7F A6 03 82 02 82 01 82 00 9D 1F 06 9C 1F
            03 9B 20 43 16 03 AA 7F A8 00 AD 62 AD 71 4C 1A 21 93 00 93 00 9C
            5B 77 9D 5B 5B 77 E3 AD 6A 0C AD 7A 04 AC 2E 0D 5C 16 02 F6 AD 7F
            A6 02 16 01 82 00 9B 20 5C 16 01 AA 7F A8 00 32 03 23 19 06
           )
      VAR 2. 1.
      #Y(C-PARALLEL-BIND-MOVABLE-VAR-ANODE-1
         #33Y(00 00 00 00 01 00 00 00 00 02 D9 AC DA 31 32 77 AA 02 59 1D 0A 68
              00 01 AB 37 03 30 B8 19 03 19 03
             )
         NIL ANODE 2.
        )
      :NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR *STACKZ*
      C-BIND-MOVABLE-VAR-ANODE GET *VENVC* C-BIND-MOVABLE-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-202
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-LET/LET*
   REMOVE-OLD-DEFINITIONS
   #Y(C-LET/LET*
      #220Y(00 00 00 00 01 00 00 00 00 02 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02
            0E 00 5B 78 62 6A 04 6A 05 72 02 00 30 63 41 02 6A 06 0E 06 10 06
            0E 07 10 07 0E 04 10 04 0E 08 10 08 B7 2E 09 41 03 9D 10 0A 9F 10
            0B A1 10 0C 2D 0D 0E 00 5B 77 2E 0E 41 02 DB 0E 06 5C 0F 06 62 0E
            08 5C 0F 08 6A 06 6A 08 AD AD 65 22 2C 03 0F 41 03 91 23 06 DB 0E
            06 5C 0F 06 E8 04 22 79 6E 11 AD AD 6F 12 AA B0 B2 6D 03 13 91 26
            80 48 AF AF AF 2C 03 16 14 AD EF 6A 06 65 26 6A 18 7A 04 7A 02 72
            03 23 91 26 39 03 1A 14 AF AE 7A 01 72 02 23 6E 1B B1 6F 1C AC 6D
            03 1D 92 02 0B B2 64 1E 30 AD B1 AD A5 79 30 AD B0 2E 1F 15 16 0A
            12 03 16 03 12 04 19 05 98 14 B0 B0 2C 03 15 1A FF B4 03 19 1A 45
           )
      *FORM* 2. TEST-LIST 0. *VENV* *FENV* *STACKZ* *DENV* *VENVC*
      PROCESS-DECLARATIONS *SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS
      ANALYZE-LETLIST PROCESS-MOVABLE-VAR-LIST PROGN C-FORM
      CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP
      C-PARALLEL-BIND-MOVABLE-VAR-ANODE UNWIND *FOR-VALUE* LET* LET
      ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE 1. OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-203
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-LOCALLY
   REMOVE-OLD-DEFINITIONS
   #Y(C-LOCALLY
      #62Y(00 00 00 00 00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01
           78 62 6A 04 6A 05 72 02 00 30 63 41 02 0E 04 10 04 AD 2E 06 41 03 9D
           10 07 2D 08 B6 E1 A7 79 35 01 11 16 03 11 19 04
          )
      C-FORM *FORM* 1. TEST-LIST *VENV* *FENV* PROCESS-DECLARATIONS *SPECIALS*
      PUSH-SPECIALS PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-204
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MULTIPLE-VALUE-BIND REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-BIND
      #374Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02
            0E 00 5B 77 AA 62 1A 80 53 E2 93 01 0E 00 5B 5B 77 7A 02 7A 01 0E
            00 5B 5B 5B 7B 02 2E 0B 19 02 0E 00 5B 5B 77 62 6F 0B EE 0E 00 5B
            5B 5B 79 6E 0B EF F0 AD F1 71 32 F0 AD F1 71 32 6F 1A AD AD 7A 02
            2C 03 1B 16 02 1A 81 0E 86 01 00 14 8D 09 09 DC DD DE 6D 03 07 AB
            2F 08 82 01 AB 8C 97 6A 16 02 AA 71 4A E1 8F 01 2D FF 9E 0E 00 5B
            5B 78 62 6A 0C 6A 0D 72 02 00 30 63 41 02 6A 0E 0E 0E 10 0E 0E 0F
            10 0F 0E 0C 10 0C 0E 10 10 10 B7 2E 11 41 03 9D 10 12 9F 10 13 A1
            10 14 2D 15 92 1B FF 7E 0E 00 5B 5B 77 F4 6F 0B 62 0E 10 5C 0F 10
            65 1C 2E 1D 41 02 DB 0E 0E 5C 0F 0E 14 6A 10 AD 62 92 01 13 93 01
            AA 2E 1E 6A 0E 83 01 AA 2E 1F 16 01 82 01 91 01 6D AA 31 4C 16 01
            F6 EE 04 21 79 6E 0B AF 6E 20 B1 64 21 65 25 71 4A 7A 02 AC B0 B2
            6D 03 22 B2 B0 B5 62 92 01 1D 93 01 93 04 93 04 6D 03 23 71 4B AB
            81 02 23 00 94 03 94 03 82 03 69 03 69 03 91 01 63 AA 31 4C 16 03
            F6 AF 64 24 6A 0E 65 27 6A 25 7A 04 7A 02 32 03 23 7B 02 EF F0 B4
            F1 71 32 F0 AF F1 71 32 6F 1A B3 6F 26 AC 6D 03 1B 92 02 0A B0 E1
            30 AD AF AD A3 79 30 AD B2 2E 27 15 16 09 12 03 16 03 12 04 19 05
           )
      *FORM* 3. TEST-LIST 0. "Only symbols may be used as variables, not ~S"
      "Nur Symbole k÷nnen Variable sein, nicht ~S"
      "Seuls les symboles peuvent servir de variable et non ~S" LANGUAGE
      C-ERROR 1. LET C-FORM *VENV* *FENV* *STACKZ* *DENV* *VENVC*
      PROCESS-DECLARATIONS *SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS
      PROGN MULTIPLE-VALUE-BIND ANODE 2. SECLASS-OR-2 MK-ANODE ALL
      PROCESS-FIXED-VAR-LIST PUSH-*VENV* BIND-FIXED-VAR-2
      CHECKING-FIXED-VAR-LIST NV-TO-STACK C-MAKE-CLOSURE C-BIND-FIXED-VAR
      UNWIND *FOR-VALUE* SECLASS-WITHOUT OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-205
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-COMPILER-LET REMOVE-OLD-DEFINITIONS
   #Y(C-COMPILER-LET
      #132Y(02 00 01 00 00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E
            01 5B 77 DC 2F 03 0E 01 5B 77 01 02 92 02 80 45 93 02 8D 09 25 9D
            5A 1F 28 9D 5A 77 8E 09 22 9D 5A 5B 1F 1D 9D 5A 5B 5B 1B 17 9D 5A
            77 83 01 9D 5A 5B 77 30 5F 14 83 00 1A 15 93 02 83 01 00 1A 74 C8
            4F 0B DE DF E0 6D 03 09 93 06 2F 05 50 82 02 91 02 FF BB AB 71 4C
            AB 31 4C 13 66 00 00 04 E2 0E 01 5B 5B 79 35 01 11 18 01 00 19 05
           )
      C-FORM *FORM* 2. TEST-LIST 0. C-ERROR
      "Illegal syntax in COMPILER-LET: ~S" "Falsche Syntax in COMPILER-LET: ~S"
      "Mauvaise syntaxe pour COMPILER-LET : ~S" LANGUAGE PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-206-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) C-BLOCK
   REMOVE-OLD-DEFINITIONS
   #Y(C-BLOCK
      #156Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 AA 8D 09
            0F C6 4F 0A DC DD DE 6D 03 07 AE 2F 03 50 7C 00 E0 0E 09 5C 10 09
            6A 0A 6E 0B E4 6A 0D E6 AD E7 E8 37 01 71 92 E9 62 EA 62 EB 6A 09
            6D 08 14 EB 6A 09 ED 62 EE 6A 0A 6D 0C 17 AF 9C 79 0E 18 5C 10 18
            F1 0E 00 5B 5B 79 6E 1A E0 AF F3 8D 32 1C 6A 09 64 21 30 AD E0 F4
            AC D9 71 32 AC B2 60 02 14 2C 03 20 16 01 11 16 02 11 19 02 E0 F4
            AC D9 71 32 F5 B6 8E 8C 01 A7 14 6E 1E B3 7A 03 AD 64 1F B4 60 04
            1A 5A
           )
      *FORM* 2. TEST-LIST C-ERROR "Block name must be a symbol, not ~S"
      "Blockname mu▀ ein Symbol sein, nicht ~S"
      "Un nom de bloc doit Ωtre un symbole et non ~S" LANGUAGE BLOCK *STACKZ*
      *FOR-VALUE* MAKE-LABEL :FNODE *FUNC* :LABEL :CONSVAR :NAME :SPECIALP
      :CLOSUREP :STACKZ MAKE-VAR :USED-FAR :FOR-VALUE MAKE-BLOCK *BENV* PROGN
      C-FORM 5. ANODE BLOCK-OPEN NEW-CONST (BLOCK-CLOSE) MK-ANODE 0.
  )  )
#Y(#:TOP-LEVEL-FORM-206-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-RETURN-FROM REMOVE-OLD-DEFINITIONS
   #Y(C-RETURN-FROM
      #257Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 AA
            8D 09 0F C7 4F 0A DD DE DF 6D 03 08 AE 2F 04 50 7C 00 AA 6E 09 92
            00 25 E5 AB 8D 36 80 49 9B 1F 80 C3 0E 00 5B 5B 77 64 1F 6F 0F EC
            64 20 AC EC AF 6E 21 7A 02 60 02 14 2C 03 18 19 04 E2 E3 E4 6D 03
            08 AC 2F 04 19 03 EC ED AC EE 6A 12 E5 B1 DA 31 32 78 E5 B2 E6 71
            32 7A 04 EF E5 B1 D9 71 32 7A 02 60 03 1A 50 0E 00 5B 5B 77 E5 AC
            E6 71 32 6F 0F E5 AC E8 71 32 0E 11 22 0B 6A 12 E5 AD DA 31 32 78
            89 13 41 0E 19 1B 37 6A 11 1A 23 03 1E 1A 39 6A 12 60 01 1A 80 40
            AC F2 AC E6 71 32 37 03 70 BC F2 AC E6 AD 31 33 16 01 F2 AB F3 80
            32 00 AA E5 AE E8 31 32 22 60 16 01 E5 AC F4 63 31 33 EC F5 AC E5
            AF E6 8E 32 44 00 14 EC B0 E5 B2 E8 71 32 0E 11 21 FF BA 00 7B 02
            7A 01 32 02 23 5C 1A FF 52 64 22 2E 23 19 03
           )
      *FORM* 2. 3. TEST-LIST C-ERROR "Block name must be a symbol, not ~S"
      "Blockname mu▀ ein Symbol sein, nicht ~S"
      "Un nom de bloc doit Ωtre un symbole et non ~S" LANGUAGE BENV-SEARCH
      "RETURN-FROM block ~S is impossible from here."
      "RETURN-FROM auf Block ~S an dieser Stelle nicht m÷glich."
      "RETURN-FROM bloc ~S est impossible α partir d'ici." BLOCK 6. C-FORM 1.
      *FUNC* *STACKZ* MAY-UNWIND RETURN-FROM (T . T) UNWIND JMP MK-ANODE
      *NO-CODE* FNODE 19. 5. (T . T) ((VALUES0)) ALL (T . T) NEW-CONST
      C-RETURN-FROM COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-207
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-TAGBODY
   REMOVE-OLD-DEFINITIONS
   #Y(C-TAGBODY
      #326Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 01 02 92 02
            26 93 02 9B 20 1A AA 8E 09 04 91 00 80 B0 AA 8D 0B 80 AB C7 4F 0A
            DD DE DF 6D 03 08 AE 2F 04 50 16 01 82 02 91 02 5A AB 71 4C AB 71
            4C 3F 02 16 03 41 02 E1 0E 0A 5C 10 0A E3 6A 0C E5 B0 E6 E7 37 01
            71 92 E8 62 E9 62 EA 6A 0A 6D 08 13 EA 6A 0A EC B7 71 4A 37 07 CC
            F8 70 1C 6D 0A 15 EE A1 76 00 9C 79 0E 17 5C 10 17 62 F0 0E 00 78
            B5 B5 92 02 1F 93 02 9B 1F 80 50 AA 62 6F 19 AF F2 AC F3 71 32 2F
            1C FB AA 83 06 16 01 16 01 82 02 91 02 61 AE 80 4C 04 16 03 F5 B0
            64 1E 71 32 71 4A E1 8F 01 30 3A 0E 25 1C 07 AB 64 26 81 02 23 01
            F5 AB AD 2C 03 27 16 02 11 16 01 11 19 03 AA 83 02 62 6E 03 83 01
            1A FF 57 9D 1F FF BE AA 93 03 8E 04 FF B7 82 02 93 01 82 02 83 05
            1A FF AC F5 B0 64 1E 71 32 AA 71 4A E1 62 1A 14 B7 AE AD 72 01 01
            BA 37 06 03 1F F7 71 62 71 46 83 00 84 01 AB AD 90 01 2D 66 AA 31
            4C 16 01 F6 6A 0A F5 AD 7A 02 30 AD 64 20 64 21 64 22 AF 72 00 26
            6E 23 9D 7B 02 AF 64 24 32 02 23 5C FA 16 03 1A FF 80
           )
      *FORM* 1. TEST-LIST MAKE-LABEL C-ERROR
      "Only numbers and symbols are valid tags, not ~S"
      "Nur Zahlen und Symbole sind zulΣssige Sprungziele, nicht aber ~S"
      "Seuls les symboles et les nombres peuvent servir de marqueur de saut et non ~S"
      LANGUAGE 0. *STACKZ* :FNODE *FUNC* :LABELLIST :CONSVAR :NAME :SPECIALP
      :CLOSUREP :STACKZ MAKE-VAR :USED-FAR MAKE-TAGBODY #.#'VECTOR *GENV* (NIL)
      C-FORM ANODE 2. SECLASS-OR-2 TAGBODY 5. #.#'EQL TAGBODY-OPEN
      SIMPLE-VECTOR
      #Y(C-TAGBODY-1
         #20Y(00 00 00 00 01 00 00 00 00 02 AB 31 8C 1E 03 9C 19 02 19 02)
        )
      NEW-CONST ((TAGBODY-CLOSE-NIL)) *FOR-VALUE* ((NIL)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-208
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-GO
   REMOVE-OLD-DEFINITIONS
   #Y(C-GO
      #259Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 AA
            8E 09 03 91 00 0D AA 8D 0B 09 DB DC DD 6D 03 06 AB 2F 07 AA 2E 08
            41 02 92 01 1B E4 AC 8D 36 3E 9C 1F 80 C3 EA 64 20 EA AE 6E 21 AE
            7A 03 60 01 14 2C 03 17 19 04 E1 E2 E3 6D 03 06 AD 2F 07 19 04 EA
            EB EC 6A 0F E4 B0 E8 71 32 03 15 7B 03 EE AE E4 B1 D9 71 32 70 99
            7A 02 60 02 1A 52 E4 AC E5 71 32 0E 0E 22 0A 6A 0F E4 AD E8 71 32
            89 11 50 F0 0E 19 1B 80 55 E4 AD F2 71 32 AA 71 4A F0 1A 10 15 16
            02 1A 18 AC AB 72 01 01 B1 8D 04 72 84 00 AA AC 90 01 2D 6F B0 AD
            30 19 9C 16 03 F6 6A 0E 1A 1E 6A 0F 60 01 1A 34 AD F3 AC F4 71 32
            37 03 70 BC F3 AC F4 AD 31 33 16 01 F3 AB F5 80 32 00 AA E4 AF E5
            31 32 22 60 16 01 EA 64 1E 64 1F EA B0 AF E4 B3 E5 71 32 0E 0E 21
            47 00 7B 03 7A 02 2C 03 17 19 05 64 22 2E 23 19 04
           )
      *FORM* 2. TEST-LIST "Tag must be a symbol or a number, not ~S"
      "Sprungziel mu▀ ein Symbol oder eine Zahl sein, nicht ~S"
      "Le marqueur de saut doit Ωtre un symbole ou un nombre et non ~S"
      LANGUAGE C-ERROR GENV-SEARCH "GO to tag ~S is impossible from here."
      "GO auf Tag ~S an dieser Stelle nicht m÷glich."
      "GO vers le marqueur ~S n'est pas possible ici." TAGBODY 1. *FUNC*
      *STACKZ* 3. MAY-UNWIND GO (T . T) UNWIND (NIL) JMP MK-ANODE 0. *NO-CODE*
      5. FNODE 8. 19. (T . T) (VALUES0) (T . T) NEW-CONST C-GO COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-209
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-FUNCTION
   REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCTION
      #267Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 78 0E
            00 5B 77 91 01 04 AA 87 04 22 6A 00 37 01 30 A1 77 9B 1F 0A 93 00
            24 27 05 9B 5B 20 80 AA 64 30 64 31 64 32 6D 03 1A AB 2F 1B 19 04
            AA 2E 05 41 03 9D 25 06 80 89 E6 E7 E8 E9 A4 5D 14 EA E3 B6 7A 02
            2C 06 13 1A 80 61 0E 07 1C 17 AD 8B 54 13 AD 6A 08 E1 37 02 8B B8
            0A AD 6A 0A E1 37 02 30 BC 0F 0A E3 E4 AF 8C 01 04 AF 88 0D 49 E6
            B0 6E 14 7A 02 03 15 5C 1A 36 EF F0 F1 6D 03 1A AE 2F 1B 19 06 E3
            F4 E6 AE 6E 1D 7A 02 64 1E E6 AF 6E 1D 7A 02 03 1F 61 03 1A 15 E6
            AC 8E 36 16 E3 64 20 64 21 E6 AF 64 22 31 32 14 7A 02 60 01 14 2C
            03 16 19 06 64 23 AC 64 22 71 32 2E 24 19 06 64 25 2E 26 19 06 9F
            1A 23 0E 28 1B 03 0E 29 58 10 28 92 05 04 AE 87 04 6D 6A 2A 64 2B
            AB 64 22 80 32 00 6A 2C 31 99 0F 2C 14 2F 2D 14 94 04 6F 2E 2E 2F
            11 19 04
           )
      *FORM* 2. 3. TEST-LIST FUNCTION-NAME-P FENV-SEARCH
      #S(HASH-TABLE EQ (LOCAL . 101.) (GLOBAL . 79.) (MACRO . 68.) (NIL . 20.))
      *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL *UNKNOWN-FUNCTIONS*
      FUNCTION (T) DECLARED-NOTINLINE CONST :HORIZONT :ALL :VALUE :FORM
      MAKE-CONST MAKE-FUNNAME-CONST ((SYMBOL-FUNCTION)) MK-ANODE
      "~S is not a function. It is a locally defined macro."
      "~S ist keine Funktion, sondern ein lokal definierter Macro."
      "~S n'est pas une fonction mais une macro dΘfinie localement." LANGUAGE
      C-ERROR (T) NEW-CONST (PUSH) ((SVREF)) (NIL) FCONST 1. VAR C-VAR
      C-FUNCTION COMPILER-ERROR LAMBDA *NO-CODE* *FOR-VALUE* *FUNC* FNODE
      *ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
      "Only symbols and lambda expressions are function names, not ~S"
      "Nur Symbole und Lambda-Ausdrⁿcke sind Namen von Funktionen, nicht ~S"
      "Seuls les symboles et les expressions lambda sont des noms de fonction et non ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-210
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-%GENERIC-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(C-%GENERIC-FUNCTION-LAMBDA
      #54Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1B 03 0E 04 58 10
           03 6A 05 DE AB D9 80 32 00 6A 07 31 99 0F 07 14 6F 08 0E 00 78 62 63
           6D 04 09 2E 0A 11 19 01
          )
      *FORM* 1. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE *ANONYMOUS-COUNT*
      SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
  )  )
#Y(#:TOP-LEVEL-FORM-211
   #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
   %OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS MACRO
   #Y(%OPTIMIZE-FUNCTION-LAMBDA
      #38Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 0F 9D 5B 78 DA DB
           DC 9E 79 7A 02 C8 61 02 19 04 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR CONS FUNCTION LAMBDA (NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-212
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-%OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(C-%OPTIMIZE-FUNCTION-LAMBDA
      #128Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1B 03 0E 04 58
            10 03 0E 00 5B 77 70 A3 6A 05 DE AB DF 80 32 00 6A 08 31 99 0F 08
            14 6F 09 0E 00 5B 78 01 02 AE 6D 05 0A 6E 0B 62 AC 1A 0C 93 00 AA
            CF 59 14 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A8 00 DF 0E 0D 5C
            10 0D E6 AE 60 02 10 00 2D 0F 12 02 14 E8 E9 AE D9 71 32 E9 AD D9
            71 32 6F 12 AE EB AE D7 7B 03 2C 03 15 16 04 11 19 01
           )
      *FORM* 2. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE 1.
      *ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION GONE
      *STACKZ* QUOTE C-QUOTE %OPTIMIZE-FUNCTION-LAMBDA ANODE SECLASS-OR-2
      (PUSH) ((CONS)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-213-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) C-FLET
   REMOVE-OLD-DEFINITIONS
   #Y(C-FLET
      #352Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02
            0E 00 5B 77 01 02 92 02 25 93 02 9B 1F 0A 93 00 88 04 05 9B 5B 20
            81 06 CD 4F 0C E3 E4 E5 6D 03 0E E7 AF 2C 03 0A 50 16 01 82 02 91
            02 5B AB 71 4C AB 71 4C 3F 02 16 03 41 02 6A 10 0E 10 10 10 0E 11
            10 11 0E 12 10 12 DB 0E 10 5C 0F 10 62 0E 11 5C 0F 11 6A 10 6A 11
            B7 B7 01 03 92 04 80 4C 93 04 83 00 93 03 DE AB EB 71 32 8D 94 80
            CB AA 6E 17 83 02 DF 0E 10 5C 0F 10 F0 37 01 71 92 F1 62 F2 62 F3
            63 F4 62 F5 62 64 1E 6A 10 64 1F 6A 11 6D 10 20 AB 7A 01 9C 79 83
            02 AA 83 04 16 01 16 01 94 04 82 04 69 04 91 04 FF B4 AC 71 4C AC
            71 4C 64 21 6A 22 9F 79 31 4C 76 00 3F 03 16 05 41 03 9B 10 22 98
            23 A1 36 00 64 24 0E 00 5B 5B 79 6E 25 B0 B0 6F 26 E7 B1 AD 7A 01
            72 02 23 6E 27 B3 6F 28 AC B5 B7 6D 03 29 98 2A B5 B5 6D 03 2B AF
            64 2C 6A 10 65 1A 6A 2D 7A 04 7A 02 72 03 23 6D 03 2E 92 01 0A B4
            DF 30 AD B3 AC A7 79 30 AD B2 2E 2F 15 16 02 11 16 05 12 03 19 04
            6A 05 DE AB DF 80 32 00 93 01 6F 08 94 01 6F 09 93 01 83 03 AA 83
            02 16 01 1A FE ED AA 7A 01 EC ED ED AE 2C 04 16 79 83 01 1A FF 56
           )
      *FORM* 2. TEST-LIST 0. FUNCTION-NAME-P *FUNC* FNODE 1. SYMBOL-SUFFIX
      C-LAMBDABODY C-ERROR "Illegal function definition syntax in ~S: ~S"
      "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
      "Mauvaise syntaxe de dΘfinition de fonction dans ~S : ~S" LANGUAGE FLET
      *STACKZ* *VENVC* *VENV* 9. :HORIZONT :VALUE MAKE-CONST C-FNODE-FUNCTION
      :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
      MAKE-VAR #.#'VECTOR *FENV* PUSH-*VENV* PROGN C-FORM
      CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT
      C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE*
      MK-ANODE OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-213-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) C-LABELS
   REMOVE-OLD-DEFINITIONS
   #Y(C-LABELS
      #424Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02
            6A 04 0E 04 10 04 0E 05 10 05 0E 06 10 06 DB 0E 04 5C 0F 04 62 0E
            05 5C 0F 05 6A 04 6A 05 0E 00 5B 77 01 05 92 05 26 93 05 9B 1F 0A
            93 00 88 07 05 9B 5B 20 80 64 03 17 4F 0C F0 F1 F2 6D 03 1B ED AF
            2C 03 17 50 16 01 82 05 91 05 5A AE 71 4C AE 71 4C AE 71 4C AE 71
            4C AE 71 4C 3F 05 16 06 41 05 AE AB 62 92 02 11 93 02 83 00 93 01
            83 00 94 02 82 02 69 02 91 02 6F 6A 1C 83 00 F5 AB 31 4C 36 00 16
            03 10 1C 98 1E A2 36 00 98 1F B0 B0 B0 72 02 17 62 AB B3 1A 80 66
            93 00 83 05 E0 0E 04 5C 0F 04 E1 37 01 71 92 E2 62 E3 62 E4 63 E5
            62 E6 62 E7 6A 04 E8 6A 05 6D 10 11 83 04 6A 12 EB AB E0 80 32 00
            93 01 6F 14 83 03 94 00 83 02 62 ED 9D 5B 77 2E 16 42 5C 79 A0 5A
            79 83 01 1A FF 64 16 03 1A 1F 93 01 9C 1F 77 93 01 AB 64 20 AC 64
            21 31 32 78 6F 22 83 04 16 02 82 01 82 00 9C 20 63 16 02 AA 7F A8
            00 64 23 0E 00 5B 5B 79 6E 24 B3 AD 92 01 2D 93 01 93 01 EB AB 64
            25 71 32 8E 94 15 64 20 AC 64 26 63 31 33 AA 6E 27 64 20 AD 64 28
            AD 31 33 16 01 16 02 94 01 82 01 69 01 91 01 53 16 02 B3 AC 6F 29
            ED AD AD 7A 01 72 02 23 6E 2A B6 6F 2B AC B9 BB 6D 03 2C 98 2D B8
            B1 6D 03 2E AF 64 2F 6A 04 65 1E 6A 30 7A 04 7A 02 72 03 23 6D 03
            31 92 01 0B B8 E0 30 AD B7 AC 04 10 79 30 AD B5 2E 32 15 16 04 11
            16 07 12 03 19 02
           )
      *FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME
      :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
      MAKE-VAR *FUNC* FNODE SYMBOL-SUFFIX LABELS ANALYZE-LAMBDALIST C-ERROR
      "Illegal function definition syntax in ~S: ~S"
      "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
      "Mauvaise syntaxe de dΘfinition de fonction dans ~S : ~S" LANGUAGE *FENV*
      #.#'VECTOR PUSH-*VENV* C-LAMBDABODY VAR 10. C-FNODE-FUNCTION PROGN C-FORM
      9. 3. NEW-CONST 4. CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR
      SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
      *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-213-3
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-GENERIC-FLET REMOVE-OLD-DEFINITIONS
   #Y(C-GENERIC-FLET
      #346Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02
            0E 00 5B 77 01 03 92 03 25 93 03 9B 1F 0A 93 00 88 04 05 9B 5B 20
            81 04 CD 4F 0C E3 E4 E5 6D 03 0E DD AF 2C 03 0A 50 16 01 82 03 91
            03 5B AC 71 4C AC 71 4C AC 71 4C 3F 03 16 04 41 03 6A 0F 0E 0F 10
            0F 0E 10 10 10 0E 07 10 07 DB 0E 0F 5C 0F 0F 62 0E 10 5C 0F 10 6A
            0F 6A 10 B8 B8 B8 01 03 92 05 80 46 93 05 83 00 93 03 E9 6F 12 83
            01 EB 0E 0F 5C 0F 0F EC 37 01 71 92 ED 62 EE 62 EF 63 F0 62 F1 62
            F2 6A 0F F3 6A 10 6D 10 1C 62 F5 A2 5A 7B 02 9C 79 83 01 AA 83 03
            16 01 94 05 94 05 82 05 69 05 69 05 91 05 FF BA AC 71 4C AC 71 4C
            64 1E 6A 08 9F 79 31 4C 76 00 3F 03 16 06 41 03 9B 10 08 98 1F A1
            36 00 64 20 0E 00 5B 5B 79 6E 12 B0 B0 6F 21 DD B1 AD 7A 01 72 02
            23 6E 22 B3 6F 23 AC B5 B7 6D 03 24 98 25 B5 B5 6D 03 26 AF 64 27
            6A 0F 65 1A 6A 28 7A 04 7A 02 72 03 23 6D 03 29 92 01 0A B4 EB 30
            AD B3 AC A7 79 30 AD B2 2E 2A 15 16 02 11 16 05 12 03 19 05 93 00
            AA 83 04 DD AB 9E 5B 77 6D 03 06 83 03 DD AB 9E 5B 77 9F 5B 78 6A
            07 6A 08 72 02 00 6D 05 09 83 02 16 01 1A FE E3
           )
      *FORM* 2. TEST-LIST 0. FUNCTION-NAME-P CLOS:GENERIC-FLET
      CLOS::DEFGENERIC-LAMBDALIST-CALLINFO *VENV* *FENV*
      CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
      "Illegal function definition syntax in ~S: ~S"
      "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
      "Mauvaise syntaxe de dΘfinition de fonction dans ~S : ~S" LANGUAGE
      *STACKZ* *VENVC* ONE C-FORM 1. :NAME :SPECIALP :CONSTANTP :USEDP
      :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR GENERIC #.#'VECTOR
      PUSH-*VENV* PROGN CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR
      SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
      *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-213-4
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-GENERIC-LABELS REMOVE-OLD-DEFINITIONS
   #Y(C-GENERIC-LABELS
      #349Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02
            6A 04 0E 04 10 04 0E 05 10 05 0E 06 10 06 DB 0E 04 5C 0F 04 62 0E
            05 5C 0F 05 6A 04 6A 05 0E 00 5B 77 01 04 92 04 26 93 04 9B 1F 0A
            93 00 88 07 05 9B 5B 20 80 58 03 17 4F 0C F0 F1 F2 6D 03 1B EB AF
            2C 03 17 50 16 01 82 04 91 04 5A AD 71 4C AD 71 4C AD 71 4C AD 71
            4C 3F 04 16 05 41 04 AD AC 62 92 02 11 93 02 83 00 93 01 83 00 94
            02 82 02 69 02 91 02 6F 6A 15 83 00 F4 AB 31 4C 36 00 16 03 10 15
            98 1D A1 36 00 62 AE 1A 80 5C 93 00 AA 83 05 E0 0E 04 5C 0F 04 E1
            37 01 71 92 E2 62 E3 62 E4 63 E5 62 E6 62 E7 6A 04 E8 6A 05 6D 10
            11 83 04 62 EA EB AD A0 5B 77 2C 03 14 7B 02 A0 5A 79 83 03 EB AB
            9E 5B 77 9F 5B 78 6A 06 6A 15 72 02 00 6D 05 16 83 02 16 01 1A FF
            69 93 00 AA 64 1E 6F 1F 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A8
            00 64 20 0E 00 5B 5B 79 6E 1F B1 AC 6F 21 EB AD AD 7A 01 72 02 23
            6E 22 B4 6F 23 AC B7 B9 6D 03 24 98 25 B6 B1 6D 03 26 AF 64 27 6A
            04 65 1C 6A 28 7A 04 7A 02 72 03 23 6D 03 29 92 01 0A B6 E0 30 AD
            B5 AC A9 79 30 AD B3 2E 2A 15 16 03 11 16 06 12 03 19 02
           )
      *FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME
      :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
      MAKE-VAR GENERIC CLOS:GENERIC-LABELS CLOS::DEFGENERIC-LAMBDALIST-CALLINFO
      *FENV* CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
      "Illegal function definition syntax in ~S: ~S"
      "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
      "Mauvaise syntaxe de dΘfinition de fonction dans ~S : ~S" LANGUAGE
      #.#'VECTOR PUSH-*VENV* ONE C-FORM PROGN CHECKING-MOVABLE-VAR-LIST
      ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE
      C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE
      OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-214
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MACROLET
   REMOVE-OLD-DEFINITIONS
   #Y(C-MACROLET
      #79Y(00 00 00 00 00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01
           5B 77 DC 2F 03 0E 01 5B 77 62 92 01 13 93 01 93 00 AA 83 02 AB 6E 05
           83 02 16 02 82 01 91 01 6D 6A 06 83 00 DF AB 31 4C 36 00 10 06 B0 E0
           0E 01 5B 5B 79 35 01 11 19 04
          )
      C-FORM *FORM* 2. TEST-LIST 0. MAKE-MACRO-EXPANDERCONS *FENV* #.#'VECTOR
      PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-215
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-SYMBOL-MACROLET REMOVE-OLD-DEFINITIONS
   #Y(C-SYMBOL-MACROLET
      #243Y(02 00 01 00 00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E
            01 5B 77 DC 2F 03 0E 01 5B 78 62 6A 05 6A 06 72 02 00 30 63 41 02
            0E 07 10 07 0E 05 10 05 B0 2E 08 41 03 9D 10 09 9F 10 0A A1 10 0B
            2D 0C 0E 01 5B 77 01 02 92 02 27 93 02 9B 1F 0E 93 00 8E 09 09 9B
            5B 1F 05 9B 5B 5B 1C 28 D0 4F 0A E6 E7 E8 6D 03 11 AE 2F 0D 50 16
            01 82 02 91 02 59 AB 71 4C AB 71 4C 3F 02 16 03 41 02 6A 09 AC 6F
            12 62 1A 1F 93 00 83 02 9B 5B 77 83 01 1A 5A 86 01 00 D0 4F 0C EB
            EC ED 6D 03 11 EE AF 2C 03 0D 50 82 01 AB 8C 97 68 16 02 EF 62 AD
            AD 1A 1B 16 03 1A 1C 93 01 9C 1F 77 93 01 AB AB 6E 18 7A 02 AF 7F
            A7 04 16 02 82 01 82 00 9C 20 66 16 02 AA 7F A8 00 6A 05 7A 01 32
            02 24 36 00 0F 05 C1 F1 04 17 79 35 01 16 02 12 03 16 03 12 02 19
            04
           )
      C-FORM *FORM* 2. TEST-LIST 0. *VENV* *FENV* *DENV* PROCESS-DECLARATIONS
      *SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS C-ERROR
      "Illegal syntax in SYMBOL-MACROLET: ~S"
      "Falsche Syntax in SYMBOL-MACROLET: ~S"
      "Mauvaise syntaxe pour SYMBOL-MACROLET : ~S" LANGUAGE INTERSECTION
      "~S: symbol ~S must not be declared SPECIAL and a macro at the same time"
      "~S: Symbol ~S darf nicht gleichzeitig SPECIAL und Makro deklariert werden."
      "~S : Le symbole ~S ne peut Ωtre dΘclarΘ SPECIAL et macro en mΩme temps."
      SYMBOL-MACROLET #.#'VECTOR MAKE-SYMBOL-MACRO PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-216
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-EVAL-WHEN REMOVE-OLD-DEFINITIONS
   #Y(C-EVAL-WHEN
      #120Y(00 00 00 00 00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E
            01 5B 77 DC 2F 03 01 03 0E 01 5B 77 62 1A 34 86 01 00 25 05 0D 7D
            03 1A 28 7D 02 1A 24 7D 04 F9 1A 1F AA DE 8D 05 76 AA DF 8E 05 0C
            7D 04 1A 11 AA 2E 0E 1A 23 9C 1A 25 E0 E1 E2 6D 03 0B AB 2F 0C 82
            01 AB 8C 97 48 16 02 E5 0E 01 5B 5B 79 91 02 5E 92 01 03 AA 30 5F
            AF 91 04 59 00 14 35 01 19 06
           )
      C-FORM *FORM* 2. TEST-LIST 0.
      #S(HASH-TABLE EQ (COMPILE-ONCE-ONLY . 5.) (EVAL . 45.) (COMPILE . 1.)
         (LOAD . 24.)
        )
      (NOT EVAL) (NOT COMPILE)
      "EVAL-WHEN situation must be EVAL or LOAD or COMPILE, but not ~S"
      "Situation bei EVAL-WHEN mu▀ EVAL, LOAD oder COMPILE sein, nicht ~S."
      "EVAL-WHEN ne s'applique qu'aux situations EVAL, LOAD ou COMPILE et non ~S."
      LANGUAGE C-ERROR PROGN C-EVAL-WHEN-COMPILE
  )  )
#Y(#:TOP-LEVEL-FORM-217
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-COND
   REMOVE-OLD-DEFINITIONS
   #Y(C-COND
      #79Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 92 00 1A 93 00
           9B 1F 18 93 00 9C 5B 1B 1F E3 AB E2 A0 5B 79 60 03 16 02 F6 2E 0C 19
           01 00 1A 78 DB DC DD 6D 03 06 AB 2F 07 16 01 1A 6B E0 AB E1 9F 5B 79
           E2 A1 5B 79 60 04 16 02 1A 5B
          )
      *FORM* 1. TEST-LIST "COND clause without test: ~S"
      "COND-Klausel ohne Test: ~S" "Clause COND sans test : ~S" LANGUAGE
      C-ERROR IF PROGN COND OR C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-218
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-CASE
   REMOVE-OLD-DEFINITIONS
   #Y(C-CASE
      #499Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B
            78 01 03 AD 1A 80 AD DB DC DD 6D 03 06 AB 2F 07 16 01 1A 80 9F 7C
            00 1A 80 92 92 02 11 CA 4F 0E E1 E2 E3 6D 03 06 E4 AF 6A 00 2C 04
            07 50 7D 00 F9 1A 80 78 9C 1A 1C 93 00 82 01 9B 1F 49 93 00 91 03
            52 AA 02 21 53 AA 23 08 4F 62 AB 8D 0E 64 AB 60 01 14 62 1A 80 48
            AA 83 07 AA 83 02 1A 3E 00 2A 01 37 01 31 92 0B 00 00 AA 6C 14 01
            ED 67 02 00 B1 7A 02 7A 01 EE 67 04 00 B1 A0 73 7A 03 7A 03 2E 17
            19 07 86 01 00 14 B2 E5 37 02 8C B8 47 E6 E7 E8 6D 03 06 E4 AC 6A
            00 2C 04 11 82 01 AB 8C 97 62 16 02 AA 80 4C 01 16 01 AA 9D 5B 79
            83 05 16 02 AA 8C 97 FF 7E 16 01 91 00 03 EA 83 02 AC 80 4C 02 AB
            80 4C 01 F6 71 4A EB 8F 01 31 FF 8E AD F0 6F 17 01 02 AE 62 1A 80
            59 9B FA 16 01 1A 80 50 EE 9C 5B 79 6E 17 9C 5A 1F 6F 93 01 62 6E
            19 AC 7A 03 83 03 16 01 1A 38 AC 6E 1C AB 62 1A 14 9B 5B 5B 5A 19
            0B 86 01 00 AC 93 01 E5 37 02 8B B8 6E 82 01 AB 8C 97 6E 9F 19 0B
            03 1F 1A 33 86 01 00 5A 1B FF BB 02 10 1A EE 9F 5B 79 62 2F 17 11
            82 01 AB 8C 97 68 16 02 AA 80 4C 00 AC 87 1B FF B7 62 6E 19 6A 1D
            6E 19 98 1E B0 8F 00 28 4B 03 20 14 E4 B0 64 21 B0 72 00 17 B1 7A
            01 32 02 23 79 6E 22 B1 64 23 AE 62 B3 1A 28 93 00 9B 5B 77 62 93
            02 1A 0B 93 00 AA 9F 79 83 02 16 01 82 00 9B 20 72 16 01 AA 30 A8
            16 01 F6 AD 7F A6 02 16 01 82 00 9B 20 55 16 01 AA 7F A8 00 B2 64
            24 B5 32 00 17 7B 04 62 B2 1A 18 93 00 9B 5B 77 9C 5B 5B 77 64 25
            B5 7A 02 7A 03 AD 7F A6 02 16 01 82 00 9B 20 65 16 01 AA 7F A8 00
            B1 B4 B2 7A 03 32 02 23 7B 02 2C 03 26 19 0B
           )
      *FORM* 1. TEST-LIST "CASE clause without objects: ~S"
      "CASE-Klausel ohne Objekte: ~S" "Clause CASE sans objets LISP : ~S"
      LANGUAGE C-ERROR OTHERWISE "~S: the ~S clause must be the last one: ~S"
      "~S: Die ~S-Klausel mu▀ die letzte sein: ~S"
      "~S : La clause ~S doit Ωtre la derniΦre: ~S" CASE #.#'EQL
      "Duplicate ~S label ~S : ~S" "Doppelt aufgefⁿhrter ~S-Fall ~S : ~S"
      "~S : Le choix ~S se rΘpΦte: ~S" C-WARN (T NIL) 2.
      #Y(C-CASE-IFIFY
         #78Y(00 00 00 00 01 00 00 00 00 02 91 01 2A 00 19 02 DA 62 AC 1A 12 93
              00 DB 68 00 01 DC AD 7A 02 7A 03 83 02 16 01 82 00 9B 20 6B 16 01
              AA 30 A8 16 01 5C 1A 0C 92 01 56 D9 9D 5A 77 AA 8D 0E 51 02 F6 DD
              9F 5A 5B 79 94 04 6B 6A 60 04 19 02
             )
         NIL IF OR EQL QUOTE PROGN
        )
      LET PROGN C-FORM ONE MAKE-LABEL *NO-CODE* ANODE-CONSTANTP
      ANODE-CONSTANT-VALUE *FOR-VALUE* EQL=EQ EQ EQL #.#'THIRD
      ANODELIST-SECLASS-OR JMPHASH #.#'SECOND JMP MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-219
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-HANDLER-BIND REMOVE-OLD-DEFINITIONS
   #Y(C-HANDLER-BIND
      #306Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02
            0E 00 5B 78 01 03 0E 00 5B 77 62 1A 80 B1 86 01 00 14 D9 D9 2C 03
            02 93 00 9C 5B 77 46 04 26 AC 2B 05 01 10 06 B1 DF A9 79 2F 08 11
            47 1C 18 02 10 09 00 10 0A B0 2E 0B 12 02 1A 80 7E 64 23 9F 79 2E
            0B 19 05 1B 68 E4 6E 0D AC 83 07 AA 83 06 E6 0E 0F 5C 10 0F 6A 0F
            0E 10 10 10 E9 0E 0F 5C 0F 0F 37 01 71 92 EA EB 62 6D 03 14 AB AB
            6F 15 AA 2E 16 EF B6 AE 7A 03 62 6F 0B AB 7A 01 AD 7A 01 2F 18 B5
            F1 AD AF 6F 1A AD F3 6A 0F 6A 1C 7A 03 F5 6A 0F B8 03 1E 7B 03 03
            1F 7B 03 32 02 23 7B 02 64 20 64 21 AC 6D 03 14 AD 7A 01 2E 22 15
            16 05 11 16 01 11 14 83 05 16 01 16 02 82 01 AB 8C 97 FF 4A 16 02
            92 02 FF 73 AC 80 4C 02 AB 80 4C 01 AA 80 4C 00 62 6E 0D 6A 0F 64
            24 0E 0F 5C 10 0F 64 23 A4 79 6E 0B 64 25 AB A3 79 6E 26 64 27 B5
            64 28 71 2E 6E 29 6A 0F A7 7B 03 64 2A B3 7A 02 B4 B4 B0 F5 6A 0F
            B7 6A 0A 7A 04 7A 03 32 02 23 7B 02 2C 03 14 16 01 11 19 07
           )
      *FORM* 2. TEST-LIST 0. TRY-SUBTYPEP
      #Y(C-HANDLER-BIND-1 #13Y(00 00 00 00 00 00 00 00 01 16 00 48 00) NIL)
      *ERROR-HANDLER* OR SUBTYPEP *NO-CODE* *FOR-VALUE* C-FORM ONE MAKE-LABEL
      ANYTHING *STACKZ* *VENV* 1. CONDITION (T) MK-ANODE BIND-MOVABLE-VAR
      PUSH-*VENV* %FUNCALL CHECKING-MOVABLE-VAR-LIST (HANDLER-BEGIN)
      C-BIND-MOVABLE-VAR-ANODE UNWINDSP *FUNC* UNWIND (NIL) ((RET)) HANDLER
      (T . T) OPTIMIZE-VAR-LIST PROGN 4. HANDLER-BIND ANODELIST-SECLASS-OR
      HANDLER-OPEN VECTOR NEW-CONST JMP
  )  )
#Y(#:TOP-LEVEL-FORM-220
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-CONSTANT-EQL REMOVE-OLD-DEFINITIONS
   #Y(C-CONSTANT-EQL
      #62Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00
           5B 78 0E 03 1C 0F AB 88 04 0B AB 6E 05 AA 8E 0A 0C 16 01 1B 0F CB 14
           9C 79 2E 07 19 03 AA 31 25 16 01 1C 71 C9 1A 6F
          )
      *FORM* 4. TEST-LIST *COMPILING-FROM-FILE* C-CONSTANTP C-CONSTANT-VALUE
      LOOSE-CONSTANT-EQL C-FORM EQL
  )  )
#Y(#:TOP-LEVEL-FORM-221
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-FUNCALL-NOTINLINE REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCALL-NOTINLINE
      #77Y(00 00 00 00 02 00 00 00 00 03 AB D8 2F 01 AC DA 6F 03 DC 0E 05 5C 10
           05 AF DE AF 7A 02 92 01 18 93 01 DA 6F 03 AA 83 01 16 01 DF 83 00 DC
           0E 05 5C 0F 05 82 01 91 01 68 E0 B2 71 4A 7A 02 83 00 E0 E1 AC 71 4C
           2C 03 0A 16 02 11 19 04
          )
      0. TEST-LIST ONE C-FORM 1. *STACKZ* (FUNCALLP) (PUSH) FUNCALL (T . T)
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-222
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-FUNCALL-INLINE REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCALL-INLINE
      #1074Y(02 00 01 00 05 00 00 00 00 06 00 2A 01 7E 04 00 00 AD D8 2F 01 93
             03 82 04 2E 02 41 0D 91 07 0F 91 06 0C 91 05 09 91 04 06 91 03 03
             92 02 03 DB 2E 04 B6 71 4A B6 71 4A BE 71 4A 91 0B 0B AA AD AD 72
             02 35 8F 01 30 82 F7 06 10 00 1B 23 AA AD 90 01 2F 1D C8 4F 0B E5
             E6 E7 6D 03 09 65 1A 2F 05 50 BF AD AC 72 01 36 62 70 A2 81 02 23
             15 9D F6 04 10 2A 05 6A 10 0E 11 0B 01 00 0E 12 0B 01 01 0E 13 0B
             01 02 0E 14 0B 01 03 0E 15 0B 01 04 6A 10 92 15 02 0E 11 14 6A 16
             92 17 02 0E 12 14 92 18 02 0E 13 14 92 19 02 0E 14 14 91 1A 82 E6
             EF 65 1F 7A 02 F0 6A 15 37 05 31 53 5C 10 15 A3 10 10 A5 10 11 A7
             10 16 A9 10 12 04 10 10 13 04 12 10 14 65 30 63 6A 11 6A 12 72 02
             00 30 63 41 02 04 1E 2A 0E 00 10 19 00 10 1A 00 10 1B 01 09 00 0B
             12 00 0B 12 01 0B 12 02 0B 12 03 0B 12 04 0B 12 05 0B 12 06 0B 12
             07 0B 12 08 0B 12 09 0B 12 0A 0B 12 0B 0B 12 0C 0B 12 0D 14 01 03
             C1 2E 1C 41 03 15 0F 1B 15 0F 1A 15 0F 19 2D 1D E2 0E 10 5C 0F 10
             62 0E 16 5C 0F 16 0E 10 F7 0E 16 F6 C0 6C 1E 01 65 46 92 00 80 43
             92 4D 82 4D 93 4D 82 4E 06 38 00 10 11 06 3B 01 10 12 06 3E 02 10
             13 06 41 03 10 14 06 44 04 10 15 B9 64 1F 2F 20 12 05 14 93 02 AB
             6F 21 AB 83 10 AA 83 11 6A 10 83 0F AA 2E 22 16 03 82 00 91 00 FF
             BD 16 01 65 45 65 45 65 45 92 02 80 40 06 4A 00 1C 04 92 4F 82 09
             04 4F 58 58 14 91 00 82 0D 93 02 64 1F 2F 20 14 93 04 AB 6F 21 AB
             83 0F AA 83 10 6A 10 83 0E AA 2E 22 93 03 24 0A 82 1D 16 03 94 02
             94 02 82 02 69 02 69 02 91 02 40 16 03 65 42 23 0A 82 22 06 47 00
             1B 82 39 91 4C 82 3F 00 14 06 37 00 10 11 06 3A 01 10 12 06 3D 02
             10 13 06 40 03 10 14 06 43 04 10 15 B9 64 1F 2F 20 12 05 14 65 44
             AB 6F 21 AB 83 09 AA 83 0A 6A 10 83 08 AA 2E 22 16 03 E2 0E 10 5C
             0F 10 0B 17 01 16 01 B6 80 4C 0C B5 80 4C 0B B4 80 4C 0A B3 80 4C
             09 B2 80 4C 08 B1 80 4C 07 65 3A 65 3A 2F 26 41 02 69 03 69 03 64
             27 04 19 79 6E 20 B7 B5 B3 67 1A 02 67 1B 05 67 1C 08 67 1D 0B B5
             72 08 23 B8 B8 6F 28 B6 B6 6F 28 B4 B4 6F 28 67 1B 02 6E 29 67 1C
             05 6E 29 67 1D 08 67 1E 09 6F 28 67 1E 0B 6E 29 B6 B6 6F 28 72 08
             23 AA AE B0 6D 03 2A 06 1A 01 10 10 BD BB B9 72 03 23 BD BB B9 72
             03 23 BD BB B9 72 03 23 67 20 00 2C 04 2B 11 14 98 2C 67 1C 02 67
             1D 03 67 1E 04 6D 04 2D 67 1C 05 67 1D 06 67 1E 08 67 1F 07 67 20
             09 67 21 0A 6D 06 2E 98 2C 67 1E 0B 67 1F 0C 67 20 0D 6D 04 2D 98
             2F B6 B6 6D 03 2D B2 64 30 6A 10 65 40 6A 31 7A 04 7A 02 72 07 23
             64 32 BA B8 B6 67 1E 00 67 1F 07 62 67 21 09 37 07 71 51 B7 B5 7A
             01 72 08 23 6E 33 AE 6F 34 AC 6D 03 35 92 02 0A B0 D8 30 AD AF AD
             A3 79 30 AD AD 2E 36 15 16 11 12 03 16 03 12 07 19 1F C8 4F 0B DE
             DF E0 6D 03 09 65 1A 2F 05 50 E2 AB AE AE 72 02 35 72 01 36 1A 2B
             37 01 71 92 BB AB 7A 01 81 02 23 11 BA 62 7A 01 81 02 23 10 B9 62
             7A 01 81 02 23 0F 84 04 E3 E4 AC 7A 02 7A 02 83 16 16 01 84 01 AB
             AB 90 01 32 4F 16 02 06 10 00 1C FC BB 1A FC DB 0E 15 1A FD 22 AA
             65 47 65 47 65 47 65 47 A1 33 16 01 1A FE 80 62 AD AD AD 65 49 A3
             33 16 03 1A FE 73 02 10 23 93 05 62 2F 20 11 06 3A 00 10 11 06 3D
             01 10 12 06 40 02 10 13 06 43 03 10 14 06 46 04 10 15 93 5F 82 60
             64 1F 2F 20 12 05 1A FD CA AC 64 1F 6F 20 93 04 AB 6F 21 AB 83 11
             AA 83 12 6A 10 83 10 AA 2E 22 16 05 1A FD C9 06 47 00 1C FE 19 01
             04 65 46 A0 33 1A FE 19 64 24 65 4D 67 49 00 32 02 23 5C 1A FD CC
             91 4C 6F 06 47 00 5A 1A FD C2 64 25 04 4D 5C 1A FD BA
            )
      1. TEST-LIST ANALYZE-LAMBDALIST C-FUNCALL-INLINE COMPILER-ERROR C-ERROR
      "Too many arguments to ~S" "Zuviele Argumente fⁿr ~S"
      "Trop d'arguments pour ~S" LANGUAGE 0. DECLARE IGNORE
      "Too few arguments to ~S" "Zuwenig Argumente fⁿr ~S"
      "Trop peu d'arguments pour ~S" *STACKZ* *VENV* *FENV* *BENV* *GENV*
      *DENV* *VENVC* INLINING
      #Y(C-FUNCALL-INLINE-1
         #21Y(00 00 00 00 01 00 00 00 00 02 9C 5A 25 00 03 02 19 02 00 19 02)
         #S(HASH-TABLE EQ (INLINING . 1.) (IN-DEFUN . 1.) (DECLARATION . 1.))
        )
      *SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
      #Y(C-FUNCALL-INLINE-FINISH-USING-APPLYARG
         #209Y(00 00 00 00 05 00 00 00 00 06 07 01 01 10 01 07 01 02 10 02 07
               01 03 10 03 07 01 04 10 04 07 01 05 10 05 07 02 01 77 DE 2F 07
               12 05 14 AC CB 59 58 14 B1 71 4A B1 71 4A 72 02 35 B1 71 4A 6D
               03 09 E2 E3 AD E4 71 32 E3 AD E4 71 32 6F 0D AD AD 7A 02 2C 03
               0E 16 01 F6 60 01 0C 00 01 AF 2E 0F 41 02 15 0C 00 04 15 0C 00
               03 AE 2E 0F 41 02 15 0C 00 07 15 0C 00 06 AB 23 08 80 4B AB 7A
               01 2E 0F 41 02 15 0C 00 0D 15 0C 00 0C E0 0E 10 5C 0F 10 0C 00
               02 68 00 03 2E 11 0C 00 05 68 00 06 68 00 07 AF AF 2C 04 12 41
               04 15 0C 00 0A 15 0C 00 09 15 0C 00 0B 15 0C 00 08 AB 23 08 11
               68 00 0C 2E 13 0C 00 0E 19 06 01 02 3F 02 1A FF B3 00 19 06
              )
         NIL *VENV* *FENV* *BENV* *GENV* *DENV* ONE C-FORM 0. C-UNLIST
         APPLY-UNLIST ANODE 2. SECLASS-OR-2 MK-ANODE PROCESS-FIXED-VAR-LIST
         *STACKZ* BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS
        )
      ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV* *NO-CODE* LIST* LIST
      BIND-AUX-VARS PROGN CHECKING-MOVABLE-VAR-LIST CHECKING-FIXED-VAR-LIST
      C-MAKE-CLOSURE C-PARALLEL-BIND-MOVABLE-VAR-ANODE C-BIND-FIXED-VAR MAPCAP
      C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND *FOR-VALUE* FUNCALL
      ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-223
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-LOCAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-LOCAL-FUNCTION-CALL
      #69Y(00 00 00 00 03 00 00 00 00 04 AC 2E 00 41 06 B1 62 B5 B2 B2 B2 B2 B2
           B2 6D 09 01 AA 23 02 0D AA 23 03 09 DE B5 7A 02 B3 2F 07 19 0B B2 62
           B6 B3 B3 B3 B3 B3 62 BD 93 13 BB BB BB BB BB 6D 07 04 2C 0A 05 19 0B
          )
      FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX NO-KEYS STATIC-KEYS
      CCLOSURE-CALL-CODE-PRODUCER C-DIRECT-FUNCTION-CALL FUNCTION
      C-FUNCALL-NOTINLINE
  )  )
#Y(#:TOP-LEVEL-FORM-224
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCTION-CALL
      #152Y(00 00 00 00 02 00 00 00 00 03 AC 2E 00 F8 14 AC 71 4A 89 01 80 5A
            9D 1F 1B 93 02 24 03 16 9D 5B 1F 12 9D 5B 5B 1B 0D DB 87 04 09 DB
            87 05 05 DE 88 04 80 49 9D 1F 16 93 02 24 09 11 9D 5B 1F 0D 9D 5B
            5B 1B 08 E1 87 04 04 E1 88 05 3C 9D 1F 80 41 93 02 24 0B 3C 9D 5B
            1F 38 9D 5B 77 88 0C 32 AC E5 E5 2C 03 0E 9D 5B 77 9D 5C 14 2E 08
            19 03 AC AC 62 A0 5B 5A 78 63 2C 05 02 19 03 DE DF 9F 5B 77 9F 7B
            02 60 02 1A 62 E2 9E 5B 77 9E 61 02 1A 59 AC AC 2F 0F 19 03
           )
      MACROEXPAND-FORM INLINE-CALLABLE-FUNCTION-LAMBDA-P C-FUNCALL-INLINE
      COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT %FUNCALL C-FORM CONSTANTLY
      PROG1 FUNCTION FUNCTION-NAME-P 2. TEST-LIST C-FUNCALL-NOTINLINE
  )  )
#Y(#:TOP-LEVEL-FORM-225
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-FUNCALL
   REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCALL
      #27Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78
           2F 03 19 01
          )
      *FORM* 2. TEST-LIST C-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-226
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-APPLY
   REMOVE-OLD-DEFINITIONS
   #Y(C-APPLY
      #461Y(02 00 01 00 00 00 00 00 00 01 46 00 81 BD 6A 01 DA 2F 03 00 2A 01
            0E 01 5B 77 0E 01 5B 5B 0B 01 00 14 71 4A 71 9A AB 2E 04 F7 14 AB
            63 2C 03 05 1B 80 4E 9C 1F 1B 93 01 24 07 16 9C 5B 1F 12 9C 5B 5B
            1B 0D DF 87 08 09 DF 87 09 05 E2 88 08 80 4C 9C 1F 81 02 93 01 24
            0D 80 FC 9C 5B 1F 80 F7 9C 5B 5B 1B 80 F1 E5 87 08 80 EC E5 87 09
            80 E7 E6 9D 5B 77 06 04 00 61 02 14 2E 0C 16 03 1A 81 47 AB 67 03
            00 37 01 70 A9 67 04 00 37 01 70 A1 9F 5B 5A 78 63 2C 05 06 16 03
            1A 81 2B E2 E3 9E 5B 77 06 05 00 7B 02 60 02 1A 4E 6A 13 00 79 9F
            33 0E 19 1C 80 60 1A 80 50 67 05 00 67 09 00 37 01 70 A9 67 0A 00
            37 01 70 A1 AD 62 2C 05 06 16 09 1A 80 F4 67 04 00 8E 09 0E 67 04
            00 8B 55 80 72 67 04 00 8B 5B 80 6B 67 04 00 6A 13 EC AB ED 80 32
            00 8E 05 0F EE 67 05 00 7A 02 6A 17 F0 37 02 8B B8 FF A6 0E 19 1C
            0D 67 04 00 6A 1A F0 37 02 30 BF 5B 1B 0A 67 04 00 6E 1B F4 37 01
            31 86 14 9B 1F 0E E7 F5 9D 79 7A 02 B1 63 2C 03 05 1B FF 87 16 06
            1A 80 49 AA 9F 33 16 05 1A 80 41 AA B1 6C 12 02 67 01 00 2E 08 41
            03 92 02 FF 85 AC 23 1E 64 16 05 1A 29 9C 1F 26 93 01 24 0F 21 9C
            5B 1F 1D 9C 5B 77 88 10 17 9D 2A 01 9D 5B 5A 0B 00 00 AC E9 E9 2C
            03 03 67 00 00 88 09 41 16 01 AB 64 1F 6F 0C ED 0E 20 5C 10 20 67
            06 00 64 21 AF 7A 02 92 01 1E 93 01 64 1F 6F 0C AA 83 01 9D 5B 1C
            0A ED 0E 20 5C 0F 20 64 22 83 01 16 01 82 01 91 01 62 E3 B1 7A 02
            83 00 E3 64 23 AC 71 4C 2C 03 24 16 02 11 16 04 47 19 01 19 01
           )
      C-APPLY *FORM* 3. TEST-LIST MACROEXPAND-FORM
      INLINE-CALLABLE-FUNCTION-LAMBDA-P C-FUNCALL-INLINE COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT APPLY C-FORM CONSTANTLY PROG1 FUNCTION
      FUNCTION-NAME-P 2.
      #Y(C-APPLY-C-LOCAL-APPLY
         #91Y(00 00 00 00 01 00 00 00 00 02 AB 2E 02 41 06 91 02 1D 68 01 01 37
              01 70 A9 68 01 01 37 01 70 A1 68 00 01 B2 B2 B2 B2 B2 B2 6D 09 03
              23 04 03 00 19 08 68 01 01 37 01 70 A9 68 01 01 37 01 70 A1 68 00
              01 B2 B2 B2 B2 B2 62 68 00 01 93 11 BA BA BA BA BA 6D 07 05 2C 0A
              06 48 01
             )
         NIL NIL FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX NO-KEYS
         CCLOSURE-CALL-CODE-PRODUCER C-DIRECT-FUNCTION-CALL
        )
      *FUNC* FNODE 1. IN-DEFUN *DENV* #.#'EQUAL *COMPILING-FROM-FILE*
      *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL INLINE-EXPANSION LAMBDA LOCAL ONE
      *STACKZ* (APPLYP) (PUSH) (T . T) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-227
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-PLUS
   REMOVE-OLD-DEFINITIONS
   #Y(C-PLUS
      #127Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 DB 01 02 0E 00 78 62
            1A 80 40 AE AD 81 02 35 04 1A 36 9E 1A 11 9E 25 08 12 9D 5A 1A 09
            CC 1A 01 CD 14 93 03 60 02 14 2E 07 19 05 E3 AE 9F 61 02 1A 39 86
            01 00 14 2E 04 F6 14 88 05 08 AA 2E 06 F8 14 8D 0B 45 AA 83 03 82
            01 AB 8C 97 64 16 02 AB 71 4A AA 23 03 FF BA AA 23 01 FF B8 AC 80
            4C 02 AD 23 03 03 AD 83 02 E3 9E 5C 14 2E 0C 19 05
           )
      *FORM* 1. TEST-LIST 0. MACROEXPAND-FORM C-CONSTANTP C-CONSTANT-VALUE
      C-FORM #S(HASH-TABLE EQ (-1. . 8.) (1. . 5.) (0. . 1.)) 1+ 1- +
      C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-228
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MINUS
   REMOVE-OLD-DEFINITIONS
   #Y(C-MINUS
      #177Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 4A D9 72 01
            2D DB DB 01 02 91 04 22 0E 00 5B 77 6E 04 AA 88 05 08 AA 2E 06 F7
            14 8D 0B 0C 9B F9 16 01 92 04 0C 0E 00 5B 1A 0B 9C FA 1A 72 91 04
            74 0E 00 5B 5B 14 62 1A 3B AF AD 81 01 36 05 1A 31 DF AE AE 60 03
            10 00 2D 08 11 19 06 00 1A 80 42 AE 24 03 04 9D 5B 1C 74 9F 1A 2B
            86 01 00 14 2E 04 F6 14 88 05 08 AA 2E 06 F8 14 8D 0B 4A AA 83 03
            82 01 AB 8C 97 64 16 02 92 01 44 E1 AD 23 03 4F AE 24 03 06 9E 14
            60 01 1A 07 AD AF 72 00 36 60 02 14 AD 71 4C 32 02 23 79 2E 0A 19
            06
           )
      *FORM* 2. TEST-LIST 0. MACROEXPAND-FORM C-CONSTANTP C-CONSTANT-VALUE +
      C-PLUS - C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-229
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-SVSTORE
   REMOVE-OLD-DEFINITIONS
   #Y(C-SVSTORE
      #63Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00
           5B 5B 77 0E 00 5B 5B 5B 77 37 01 71 92 37 01 71 92 DB AC B0 7A 02 AC
           B0 7A 02 7A 02 DC AF AF AF 7A 04 7A 03 2E 05 19 06
          )
      *FORM* 4. TEST-LIST LET* %SVSTORE C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-230
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-EQ
   REMOVE-OLD-DEFINITIONS
   #Y(C-EQ
      #89Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 6E 03
           0E 00 5B 5B 77 6E 03 AB 88 04 04 AA 87 04 1E AB 88 04 08 AB AB 9B F9
           9C F8 16 02 AA 88 04 04 AA 88 06 19 E2 AC AC 60 03 14 2E 09 19 03 DD
           AC 6E 06 AC 2E 06 59 14 7A 02 2E 07 19 03 E0 AC 60 02 1A 66
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM C-CONSTANTP QUOTE C-CONSTANT-VALUE
      C-FORM NULL C-GLOBAL-FUNCTION-CALL-FORM EQ
  )  )
#Y(#:TOP-LEVEL-FORM-231
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EQL=EQ
   REMOVE-OLD-DEFINITIONS
   #Y(EQL=EQ
      #27Y(00 00 00 00 01 00 00 00 00 02 AB 31 09 1D 0A AB 31 10 1D 05 AB 31 1F
           19 02 19 02
  )  )    )
#Y(#:TOP-LEVEL-FORM-232
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-EQL
   REMOVE-OLD-DEFINITIONS
   #Y(C-EQL
      #94Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 6E 03
           0E 00 5B 5B 77 6E 03 AB 88 04 04 AA 87 04 1D AB 88 04 06 AB 6E 06 87
           08 22 AA 88 04 06 AA 6E 06 87 08 18 E3 AC AC 7A 03 2E 0C 19 03 DD AC
           6E 06 AC 6E 06 71 04 7A 02 2E 07 19 03 E1 AC AC 60 03 10 00 2D 0A 11
           19 03
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM C-CONSTANTP QUOTE C-CONSTANT-VALUE
      C-FORM EQL=EQ EQ C-EQ EQL C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-233
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EQUAL=EQL
   REMOVE-OLD-DEFINITIONS
   #Y(EQUAL=EQL
      #27Y(00 00 00 00 01 00 00 00 00 02 AB 31 09 1D 0A AB 31 0B 1D 05 AB 31 1F
           19 02 19 02
  )  )    )
#Y(#:TOP-LEVEL-FORM-234
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-EQUAL
   REMOVE-OLD-DEFINITIONS
   #Y(C-EQUAL
      #71Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 6E 03
           0E 00 5B 5B 77 6E 03 AB 88 04 06 AB 6E 05 87 06 13 AA 88 04 06 AA 6E
           05 87 06 09 E1 AC AC 7A 03 2E 0A 19 03 DF AC AC 60 03 10 00 2D 08 11
           19 03
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM C-CONSTANTP C-CONSTANT-VALUE
      EQUAL=EQL EQL C-EQL EQUAL C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-235
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MAP-ON-CARS-INNER REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-CARS-INNER
      #69Y(00 00 00 00 03 00 01 00 00 0A 3A 01 0D 7C 01 91 02 0B AE AC 71 4C 35
           01 19 05 92 02 75 93 02 37 01 71 92 D8 D9 AD 7A 02 DA AD DB B0 7A 02
           7A 02 7A 01 B4 B4 94 0A B1 A6 79 6B 4F 7A 03 DC B3 7A 02 60 04 19 07
          )
      IF CONSP LET CAR RETURN-FROM
  )  )
#Y(#:TOP-LEVEL-FORM-236
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MAP-ON-CARS REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-CARS
      #145Y(00 00 00 00 03 00 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 9B
            2A 01 37 01 31 92 0B 00 00 37 01 71 92 62 AF 1A 0C 93 00 37 01 71
            92 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A8 00 37 01 71 92 D8 67
            04 00 C4 79 7A 01 DA AF DB DC B1 B7 72 01 17 DD B1 B5 6C 06 01 B5
            B5 6D 03 07 E0 62 B6 1A 11 93 00 AA E1 AC 7A 02 7A 02 AD 7F A6 02
            16 01 82 00 9B 20 6C 16 01 AA 30 A8 16 01 79 E2 B5 7A 02 7A 05 7A
            03 7A 03 E3 67 07 00 7A 02 60 04 19 09
           )
      LET (NIL) BLOCK LET* #.#'LIST TAGBODY
      #Y(C-MAP-ON-CARS-1
         #33Y(00 00 00 00 01 00 00 00 00 02 D9 68 00 01 68 01 01 DA 68 01 02 A1
              7B 02 68 00 01 7A 03 60 03 19 02
             )
         NIL SETQ %FUNCALL
        )
      C-MAP-ON-CARS-INNER SETQ CDR GO LIST-NREVERSE
  )  )
#Y(#:TOP-LEVEL-FORM-237
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-MAP-ON-LISTS REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-LISTS
      #164Y(00 00 00 00 03 00 00 00 00 04 37 01 71 92 37 01 71 92 62 AE 1A 0C
            93 00 37 01 71 92 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A8 00 37
            01 71 92 D8 AE C4 79 7A 01 DA AF DB DC B1 B6 72 01 17 DD B1 DE DF
            62 B6 1A 0C 93 00 E0 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01 AA
            30 A8 16 01 79 E1 B7 7A 02 7A 03 E2 B7 BC E3 BD 04 0F 7B 02 BA 7A
            03 7A 03 E2 62 B7 1A 11 93 00 AA E4 AC 7A 02 7A 02 AD 7F A6 02 16
            01 82 00 9B 20 6C 16 01 AA 30 A8 16 01 79 E5 B6 7A 02 7A 06 7A 03
            7A 03 E6 B1 7A 02 60 04 19 08
           )
      LET (NIL) BLOCK LET* #.#'LIST TAGBODY IF OR ATOM RETURN-FROM SETQ
      %FUNCALL CDR GO LIST-NREVERSE
  )  )
#Y(#:TOP-LEVEL-FORM-238
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MAPC
   REMOVE-OLD-DEFINITIONS
   #Y(C-MAPC
      #179Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 00 2A 01 0E 00 5B 77
            2E 03 0B 00 00 14 0E 00 5B 78 71 4A 89 04 0E E8 67 01 00 0E 00 5B
            5B 7B 02 2E 11 19 02 37 01 71 92 AA 0E 00 5B 5B 5B 79 37 01 71 92
            62 AC 1A 0C 93 00 37 01 71 92 83 02 16 01 82 00 9B 20 71 16 01 AA
            7F A8 00 37 01 71 92 DD AF 0E 00 5B 5B 77 7A 02 7A 01 DE AF DF E0
            B1 B4 72 01 17 E1 B1 B7 6C 0A 01 B5 B5 6D 03 0B E4 62 B6 1A 11 93
            00 AA E5 AC 7A 02 7A 02 AD 7F A6 02 16 01 82 00 9B 20 6C 16 01 AA
            30 A8 16 01 79 E6 B5 7A 02 7A 05 7A 03 7A 03 B1 60 04 16 04 F6 2E
            0F 19 02
           )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM INLINE-CALLABLE-FUNCTION-P LET BLOCK
      LET* #.#'LIST TAGBODY
      #Y(C-MAPC-1
         #19Y(00 00 00 00 01 00 00 00 00 02 D9 68 00 01 9E 61 02 19 02) NIL
         %FUNCALL
        )
      C-MAP-ON-CARS-INNER SETQ CDR GO C-FORM MAPC C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-239
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MAPL
   REMOVE-OLD-DEFINITIONS
   #Y(C-MAPL
      #202Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 AA
            0E 00 5B 78 71 4A 89 04 0C EB AB 0E 00 5B 5B 7B 02 2E 14 19 02 37
            01 71 92 AA 0E 00 5B 5B 5B 79 37 01 71 92 62 AC 1A 0C 93 00 37 01
            71 92 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A8 00 37 01 71 92 DD
            AF 0E 00 5B 5B 77 7A 02 7A 01 DE AF DF E0 B1 B4 72 01 17 E1 B1 E2
            E3 62 B6 1A 0C 93 00 E4 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01
            AA 30 A8 16 01 79 E5 B7 7A 02 7A 03 E6 B9 A7 7B 02 E7 62 B7 1A 11
            93 00 AA E8 AC 7A 02 7A 02 AD 7F A6 02 16 01 82 00 9B 20 6C 16 01
            AA 30 A8 16 01 79 E9 B6 7A 02 7A 06 7A 03 7A 03 B1 60 04 16 04 F6
            2E 12 19 02
           )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM INLINE-CALLABLE-FUNCTION-P LET BLOCK
      LET* #.#'LIST TAGBODY IF OR ATOM RETURN-FROM %FUNCALL SETQ CDR GO C-FORM
      MAPL C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-240
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MAPCAR
   REMOVE-OLD-DEFINITIONS
   #Y(C-MAPCAR
      #67Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 1A 0E 00 5B 77
           6E 06 0E 00 5B 78 AB AB 71 4A 89 07 15 E3 AC 9D 7B 02 2E 0C 19 03 DC
           0E 00 5B 5C 10 00 2D 05 11 19 01 E0 AC AC 6D 03 09 2E 0A 19 03
          )
      *FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC MACROEXPAND-FORM
      INLINE-CALLABLE-FUNCTION-P CONS C-MAP-ON-CARS C-FORM MAPCAR
      C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-241
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MAPLIST
   REMOVE-OLD-DEFINITIONS
   #Y(C-MAPLIST
      #67Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 1A 0E 00 5B 77
           6E 06 0E 00 5B 78 AB AB 71 4A 89 07 15 E3 AC 9D 7B 02 2E 0C 19 03 DC
           0E 00 5B 5C 10 00 2D 05 11 19 01 E0 AC AC 6D 03 09 2E 0A 19 03
          )
      *FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL MACROEXPAND-FORM
      INLINE-CALLABLE-FUNCTION-P CONS C-MAP-ON-LISTS C-FORM MAPLIST
      C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-242
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MAPCAN
   REMOVE-OLD-DEFINITIONS
   #Y(C-MAPCAN
      #51Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 0E 00
           5B 78 AB AB 71 4A 89 04 09 E0 AC 9D 7B 02 2E 09 19 03 DD AC AC 6D 03
           06 2E 07 19 03
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM INLINE-CALLABLE-FUNCTION-P NRECONC
      C-MAP-ON-CARS C-FORM MAPCAN C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-243
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MAPCON
   REMOVE-OLD-DEFINITIONS
   #Y(C-MAPCON
      #51Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 0E 00
           5B 78 AB AB 71 4A 89 04 09 E0 AC 9D 7B 02 2E 09 19 03 DD AC AC 6D 03
           06 2E 07 19 03
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM INLINE-CALLABLE-FUNCTION-P NRECONC
      C-MAP-ON-LISTS C-FORM MAPCON C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-244
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MAPCAP
   REMOVE-OLD-DEFINITIONS
   #Y(C-MAPCAP
      #67Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 1A 0E 00 5B 77
           6E 06 0E 00 5B 78 AB AB 71 4A 89 07 15 E3 AC 9D 7B 02 2E 0C 19 03 DC
           0E 00 5B 5C 10 00 2D 05 11 19 01 E0 AC AC 6D 03 09 2E 0A 19 03
          )
      *FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC MACROEXPAND-FORM
      INLINE-CALLABLE-FUNCTION-P REVAPPEND C-MAP-ON-CARS C-FORM MAPCAP
      C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-245
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-MAPLAP
   REMOVE-OLD-DEFINITIONS
   #Y(C-MAPLAP
      #67Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 1A 0E 00 5B 77
           6E 06 0E 00 5B 78 AB AB 71 4A 89 07 15 E3 AC 9D 7B 02 2E 0C 19 03 DC
           0E 00 5B 5C 10 00 2D 05 11 19 01 E0 AC AC 6D 03 09 2E 0A 19 03
          )
      *FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL MACROEXPAND-FORM
      INLINE-CALLABLE-FUNCTION-P REVAPPEND C-MAP-ON-LISTS C-FORM MAPLAP
      C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-246
   #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
        03 D8 D9 31 85 C3 19 01
       )
   C-TYPEP-ALIST1
   #1=((ARRAY . ARRAYP) (ATOM . ATOM) (BIT-VECTOR . BIT-VECTOR-P)
        (CHARACTER . CHARACTERP) (COMMON . COMMONP)
        (COMPILED-FUNCTION . COMPILED-FUNCTION-P) (COMPLEX . COMPLEXP)
        (CONS . CONSP) (DOUBLE-FLOAT . DOUBLE-FLOAT-P) (FIXNUM . FIXNUMP)
        (FLOAT . FLOATP) (FUNCTION . FUNCTIONP) (HASH-TABLE . HASH-TABLE-P)
        (INTEGER . INTEGERP) (KEYWORD . KEYWORDP) (LIST . LISTP)
        (LOGICAL-PATHNAME . LOGICAL-PATHNAME-P) (LONG-FLOAT . LONG-FLOAT-P)
        (NULL . NULL) (NUMBER . NUMBERP) (PACKAGE . PACKAGEP)
        (PATHNAME . PATHNAMEP) (RANDOM-STATE . RANDOM-STATE-P)
        (RATIONAL . RATIONALP) (READTABLE . READTABLEP) (REAL . REALP)
        (SEQUENCE . SEQUENCEP) (SHORT-FLOAT . SHORT-FLOAT-P)
        (SIMPLE-ARRAY . SIMPLE-ARRAY-P)
        (SIMPLE-BIT-VECTOR . SIMPLE-BIT-VECTOR-P)
        (SIMPLE-STRING . SIMPLE-STRING-P) (SIMPLE-VECTOR . SIMPLE-VECTOR-P)
        (SINGLE-FLOAT . SINGLE-FLOAT-P)
        (CLOS:STANDARD-GENERIC-FUNCTION . CLOS::GENERIC-FUNCTION-P)
        (CLOS:STANDARD-OBJECT . CLOS::STD-INSTANCE-P) (STREAM . STREAMP)
        (FILE-STREAM . FILE-STREAM-P) (SYNONYM-STREAM . SYNONYM-STREAM-P)
        (BROADCAST-STREAM . BROADCAST-STREAM-P)
        (CONCATENATED-STREAM . CONCATENATED-STREAM-P)
        (TWO-WAY-STREAM . TWO-WAY-STREAM-P) (ECHO-STREAM . ECHO-STREAM-P)
        (STRING-STREAM . STRING-STREAM-P) (STRING . STRINGP)
        (CLOS::STRUCTURE-OBJECT . CLOS::STRUCTURE-INSTANCE-P)
        (SYMBOL . SYMBOLP) (VECTOR . VECTORP)
      )
   (DEFCONSTANT C-TYPEP-ALIST1 '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-247
   #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
        03 D8 D9 31 85 C3 19 01
       )
   C-TYPEP-ALIST2
   #1=((BIGNUM (X) (AND (INTEGERP X) (NOT (FIXNUMP X))))
        (BIT (X) (OR (EQL X 0.) (EQL X 1.))) (NIL (X) (DECLARE (IGNORE X)) NIL)
        (RATIO (X) (AND (RATIONALP X) (NOT (INTEGERP X))))
        (STANDARD-CHAR (X) (AND (CHARACTERP X) (STANDARD-CHAR-P X)))
        (STRING-CHAR (X) (AND (CHARACTERP X) (STRING-CHAR-P X)))
        (STRUCTURE (X)
          (LET ((Y (TYPE-OF X)))
            (AND (SYMBOLP Y) (GET Y 'DEFSTRUCT-DESCRIPTION)
              (%STRUCTURE-TYPE-P Y X)
        ) ) )
        (T (X) (DECLARE (IGNORE X)) T)
      )
   (DEFCONSTANT C-TYPEP-ALIST2 '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-248
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-TYPEP-ARRAY REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-ARRAY
      #23Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03
          )
      #Y(C-TYPEP-ARRAY-1
         #141Y(00 00 00 00 01 00 02 00 01 00 3A 03 02 C4 F9 3A 02 02 C4 F8 DA
               68 00 01 B0 7A 02 AF 23 01 27 DB DC B2 7A 02 DD B2 6E 06 7A 02
               7A 03 60 01 14 AF 23 01 16 AF 8D 0B 15 DF B0 71 4A E0 B4 7A 02
               7A 03 E1 62 B2 1A 34 00 1A 65 00 1A 39 DF B0 E0 B4 7A 02 7A 03
               60 01 1A 2D 00 1A 14 93 00 AA 23 01 77 DF DD AC 7A 02 E2 B9 B1
               7A 03 7A 03 60 01 14 84 04 AD 7F A6 02 16 01 82 00 9B 20 5E 16
               01 AA 30 A8 16 02 5C 14 32 02 23 61 02 19 05
              )
         NIL * AND EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE
         EQL ARRAY-RANK 0. ARRAY-DIMENSION
  )  )  )
#Y(#:TOP-LEVEL-FORM-249
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-TYPEP-VECTOR REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-VECTOR
      #23Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03
          )
      #Y(C-TYPEP-VECTOR-1
         #47Y(00 00 00 00 01 00 01 00 01 00 3A 02 02 C4 F8 DA 68 00 01 AF 7A 02
              AE 23 01 12 DB DC B1 C8 7B 02 DE B1 7A 02 7A 03 60 01 61 02 19 04
              00 1A 79
             )
         NIL * AND EQL ARRAY-DIMENSION (0.) QUOTE
  )  )  )
#Y(#:TOP-LEVEL-FORM-250
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-TYPEP-NUMBER REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-NUMBER
      #27Y(00 00 00 00 02 00 00 00 00 03 00 2A 02 7E 03 00 00 7E 02 00 01 AA 2B
           00 01 19 04
          )
      #Y(C-TYPEP-NUMBER-1
         #179Y(00 00 00 00 01 00 02 00 01 00 3A 03 02 C4 F9 3A 02 02 C4 F8 DA
               68 00 02 B0 7A 02 AF 23 01 80 5C 68 00 02 B0 35 01 1B 80 56 A0
               1F 80 57 A0 5B 1B 80 52 68 00 02 93 06 35 01 1C 80 48 DC A1 5A
               14 B2 7A 03 60 01 14 AF 23 01 80 50 68 00 02 B0 35 01 1B 80 4A
               A0 1F 0D A0 5B 1B 09 68 00 02 93 06 35 01 1B 3E E6 E7 E8 6D 03
               08 E1 68 00 01 68 00 01 68 00 01 B4 2C 06 0A CE 14 00 51 00 1A
               46 DB A1 1A FF BB DD DE DF 6D 03 08 E1 68 00 01 68 00 01 68 00
               01 B4 2C 06 0A CE 1A 5E 00 1A 0D E4 A1 1A 03 E5 A1 5A 14 B3 7A
               03 60 01 14 32 02 23 61 02 19 05
              )
         NIL * AND <= < "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
         "~S: Argument zu ~S mu▀ *, ~S oder eine Liste von ~S sein: ~S"
         "~S : L'argument de ~S doit Ωtre *, ~S ou une liste de ~S: ~S"
         LANGUAGE TYPEP C-WARN C-TYPEP >= >
         "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
         "~S: Argument zu ~S mu▀ *, ~S oder eine Liste von ~S sein: ~S"
         "~S : L'argument de ~S doit Ωtre *, ~S ou une liste de ~S: ~S"
  )  )  )
#Y(#:TOP-LEVEL-FORM-251
   #153Y(00 00 00 00 00 00 00 00 00 01 D8 D9 2E 02 79 DB DC 2E 02 79 DD C9 79
         DF E0 2E 09 79 E2 CE 79 E4 E4 E5 2F 0E 79 E7 D3 79 E9 D5 79 EB D7 79
         ED ED EE 2F 0E 79 EF EF F0 2F 0E 79 F1 F1 F2 2F 0E 79 F3 F3 F4 2F 0E
         79 F5 F5 64 1E 2F 0E 79 64 1F 64 1F 64 20 2F 0E 79 64 21 64 21 64 22
         2F 0E 79 64 23 64 24 2E 09 79 64 25 64 26 2E 09 79 64 27 64 28 2E 09
         79 64 29 64 2A 2E 09 79 7A 14 64 2B 8C 62 0E AA 64 2B 70 52 8D 04 06
         64 2B 64 2C 2F 2D 64 2B AB 31 85 03 2B 19 02
        )
   ARRAY ARRAYP C-TYPEP-ARRAY SIMPLE-ARRAY SIMPLE-ARRAY-P VECTOR
   #Y(#:TOP-LEVEL-FORM-251-1
      #77Y(00 00 00 00 01 00 02 00 01 00 3A 03 02 C3 F9 3A 02 02 C3 F8 D9 DA B0
           7A 02 AF 23 00 2A DB DC B2 7A 02 DD B2 6E 06 7A 02 7A 03 60 01 14 AF
           23 00 19 DF E0 B3 CC 7B 02 DD B2 7A 02 7A 03 60 01 14 32 02 23 61 02
           19 05 00 1A 62 00 1A 72
          )
      * AND VECTORP EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE
      EQL ARRAY-DIMENSION #1=(0.)
     )
   SIMPLE-VECTOR SIMPLE-VECTOR-P C-TYPEP-VECTOR COMPLEX
   #Y(#:TOP-LEVEL-FORM-251-2
      #74Y(00 00 00 00 01 00 02 00 01 00 3A 03 02 C3 F9 3A 02 02 9E F8 D9 DA B0
           7A 02 AF 23 00 27 DB DC B2 7A 02 DD B2 7A 02 7A 03 60 01 14 AF 23 00
           18 DB DE B3 7A 02 DD B2 7A 02 7A 03 60 01 14 32 02 23 61 02 19 05 00
           1A 63 00 1A 72
          )
      * AND COMPLEXP TYPEP REALPART QUOTE IMAGPART
     )
   INTEGER INTEGERP C-TYPEP-NUMBER MOD
   #Y(#:TOP-LEVEL-FORM-251-3
      #51Y(00 00 00 00 01 00 01 00 01 00 3C 02 AC 8E 0F 15 DF E0 AF 7A 02 E1 E2
           B1 7A 02 7A 02 E3 B1 B1 7A 03 60 04 19 04 D8 D9 DA 6D 03 03 DC AE 2C
           03 05 DE 00 51
          )
      #2="~S: argument to MOD must be an integer: ~S"
      #3="~S: Argument zu MOD mu▀ ganze Zahl sein: ~S"
      #4="~S : L'argument de MOD doit Ωtre un entier: ~S" LANGUAGE TYPEP C-WARN
      C-TYPEP AND INTEGERP NOT MINUSP <
     )
   SIGNED-BYTE
   #Y(#:TOP-LEVEL-FORM-251-4
      #63Y(00 00 00 00 01 00 01 00 01 00 3A 02 02 C3 F8 AC 23 00 04 AC 8E 0F 17
           E0 E1 AF 7A 02 AE 23 00 1C E2 E3 B1 7A 02 B0 7A 03 60 01 61 02 19 04
           D9 DA DB 6D 03 04 DD AE 2C 03 06 DF 00 51 00 1A 6B
          )
      * #5="~S: argument to SIGNED-BYTE must be an integer or * : ~S"
      #6="~S: Argument zu SIGNED-BYTE mu▀ ganze Zahl oder * sein: ~S"
      #7="~S : L'argument de SIGNED-BYTE doit Ωtre un entier ou bien * : ~S"
      LANGUAGE TYPEP C-WARN C-TYPEP AND INTEGERP < INTEGER-LENGTH
     )
   UNSIGNED-BYTE
   #Y(#:TOP-LEVEL-FORM-251-5
      #70Y(00 00 00 00 01 00 01 00 01 00 3A 02 02 C3 F8 AC 23 00 04 AC 8E 0F 1E
           E0 E1 AF 7A 02 E2 E3 B1 7A 02 7A 02 AF 23 00 1C E4 E5 B2 7A 02 B1 7A
           03 60 01 61 03 19 04 D9 DA DB 6D 03 04 DD AE 2C 03 06 DF 00 51 00 1A
           6B
          )
      * #8="~S: argument to UNSIGNED-BYTE must be an integer or * : ~S"
      #9="~S: Argument zu UNSIGNED-BYTE mu▀ ganze Zahl oder * sein: ~S"
      #10="~S : L'argument de UNSIGNED-BYTE doit Ωtre un entier ou bien * : ~S"
      LANGUAGE TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <= INTEGER-LENGTH
     )
   REAL REALP RATIONAL RATIONALP FLOAT FLOATP SHORT-FLOAT SHORT-FLOAT-P
   SINGLE-FLOAT SINGLE-FLOAT-P DOUBLE-FLOAT DOUBLE-FLOAT-P LONG-FLOAT
   LONG-FLOAT-P STRING STRINGP SIMPLE-STRING SIMPLE-STRING-P BIT-VECTOR
   BIT-VECTOR-P SIMPLE-BIT-VECTOR SIMPLE-BIT-VECTOR-P C-TYPEP-ALIST3
   (DEFCONSTANT C-TYPEP-ALIST3
     `((ARRAY . ,(C-TYPEP-ARRAY 'ARRAYP))
        (SIMPLE-ARRAY . ,(C-TYPEP-ARRAY 'SIMPLE-ARRAY-P))
        (VECTOR .
          ,#'(LAMBDA (X &OPTIONAL (EL-TYPE '*) (SIZE '*) &REST ILLEGAL-ARGS)
               (DECLARE (IGNORE ILLEGAL-ARGS))
               `#11=(AND (VECTORP ,X)
                      ,@(IF (EQ EL-TYPE '*) 'NIL
                          `#12=((EQUAL (ARRAY-ELEMENT-TYPE ,X)
                                   ',(UPGRADED-ARRAY-ELEMENT-TYPE EL-TYPE)
                        )      ))
                      ,@(IF (EQ SIZE '*) 'NIL
                          `#13=((EQL (ARRAY-DIMENSION ,X 0.) ',SIZE))
        )    )      )   )
        (SIMPLE-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-VECTOR-P))
        (COMPLEX .
          ,#'(LAMBDA (X &OPTIONAL (RTYPE '*) (ITYPE RTYPE) &REST ILLEGAL-ARGS)
               (DECLARE (IGNORE ILLEGAL-ARGS))
               `#14=(AND (COMPLEXP ,X)
                      ,@(IF (EQ RTYPE '*) 'NIL
                          `#15=((TYPEP (REALPART ,X) ',RTYPE))
                        )
                      ,@(IF (EQ ITYPE '*) 'NIL
                          `#16=((TYPEP (IMAGPART ,X) ',ITYPE))
        )    )      )   )
        (INTEGER . ,(C-TYPEP-NUMBER 'INTEGER 'INTEGERP))
        (MOD .
          ,#'(LAMBDA (X &OPTIONAL N &REST ILLEGAL-ARGS)
               (DECLARE (IGNORE ILLEGAL-ARGS))
               (UNLESS (INTEGERP N)
                 (C-WARN (DEUTSCH #3# ENGLISH #2# FRANCAIS #4#) 'TYPEP N)
                 (THROW 'C-TYPEP NIL)
               )
               `#17=(AND (INTEGERP ,X) (NOT (MINUSP ,X)) (< ,X ,N))
        )    )
        (SIGNED-BYTE .
          ,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS)
               (DECLARE (IGNORE ILLEGAL-ARGS))
               (UNLESS (OR (EQ N '*) (INTEGERP N))
                 (C-WARN (DEUTSCH #6# ENGLISH #5# FRANCAIS #7#) 'TYPEP N)
                 (THROW 'C-TYPEP NIL)
               )
               `#18=(AND (INTEGERP ,X)
                      ,@(IF (EQ N '*) 'NIL `#19=((< (INTEGER-LENGTH ,X) ,N)))
        )    )      )
        (UNSIGNED-BYTE .
          ,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS)
               (DECLARE (IGNORE ILLEGAL-ARGS))
               (UNLESS (OR (EQ N '*) (INTEGERP N))
                 (C-WARN (DEUTSCH #9# ENGLISH #8# FRANCAIS #10#) 'TYPEP N)
                 (THROW 'C-TYPEP NIL)
               )
               `#20=(AND (INTEGERP ,X) (NOT (MINUSP ,X))
                      ,@(IF (EQ N '*) 'NIL `#21=((<= (INTEGER-LENGTH ,X) ,N)))
        )    )      )
        (REAL . ,(C-TYPEP-NUMBER 'REAL 'REALP))
        (RATIONAL . ,(C-TYPEP-NUMBER 'RATIONAL 'RATIONALP))
        (FLOAT . ,(C-TYPEP-NUMBER 'FLOAT 'FLOATP))
        (SHORT-FLOAT . ,(C-TYPEP-NUMBER 'SHORT-FLOAT 'SHORT-FLOAT-P))
        (SINGLE-FLOAT . ,(C-TYPEP-NUMBER 'SINGLE-FLOAT 'SINGLE-FLOAT-P))
        (DOUBLE-FLOAT . ,(C-TYPEP-NUMBER 'DOUBLE-FLOAT 'DOUBLE-FLOAT-P))
        (LONG-FLOAT . ,(C-TYPEP-NUMBER 'LONG-FLOAT 'LONG-FLOAT-P))
        (STRING . ,(C-TYPEP-VECTOR 'STRINGP))
        (SIMPLE-STRING . ,(C-TYPEP-VECTOR 'SIMPLE-STRING-P))
        (BIT-VECTOR . ,(C-TYPEP-VECTOR 'BIT-VECTOR-P))
        (SIMPLE-BIT-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-BIT-VECTOR-P))
   )  )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-252
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-TYPEP
   REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP
      #566Y(02 00 01 00 00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E
            00 5B 5B 77 6E 03 AA 88 04 82 0C AA 6E 05 62 AB 8D 09 81 BC 9C 1F
            06 93 01 8D 09 80 D3 AB 88 16 81 F3 AB 6E 17 ED 37 01 71 86 9D 22
            81 E7 F0 F1 AF 7A 02 F2 F3 E9 B0 2E 17 14 7A 02 60 02 14 60 02 14
            7A 03 2E 12 19 05 5B F6 14 AE 7A 02 2E 07 19 05 5B F6 14 AE 60 02
            10 00 E1 AF 71 8E 6F 0A B1 7A 01 62 B0 62 2C 05 0B 11 19 05 5B F6
            37 01 71 92 AB AB 75 01 AB 7A 01 AB 7A 02 E5 9C 79 B1 60 02 10 00
            E6 B2 71 8E 6F 0A B4 7A 01 62 B0 62 2C 05 0B 11 19 08 E8 AE E9 AD
            AF 7A 01 35 01 1A FF 9C EC E9 AD 7A 02 A0 1A FF 96 F0 F1 AF 7A 02
            F2 F3 E9 A1 1A FF 82 64 1F 64 20 64 21 6D 03 22 E8 A2 5B 77 2C 03
            23 F4 00 51 9F 5B 77 A0 5B 77 8E 09 64 AA B2 7A 02 2E 07 16 08 1A
            80 E7 64 25 B1 94 06 03 26 79 03 27 61 03 10 00 2D 28 1A 31 03 1C
            4F 81 20 93 04 24 1D 06 AE 71 4A 23 1E 4A 93 04 23 24 59 93 04 24
            29 80 69 AE 71 4A 24 1E 80 62 64 29 B1 E9 A2 5B 77 7A 02 60 03 10
            00 2D 2A 11 16 07 1A 80 9E 64 2B E8 B2 E9 A3 5B 77 7A 02 7A 03 7A
            02 2E 07 16 07 1A 80 89 37 01 71 92 64 2E AB B3 7A 02 7A 01 93 07
            62 94 09 1A 10 93 00 E8 B1 E9 AD 7A 02 7A 03 83 02 16 01 82 00 9B
            20 6D 16 01 AA 30 A8 16 01 79 60 03 F6 2E 12 16 07 1A 80 51 93 04
            24 2B 07 AE 71 4A 23 1E FF A7 93 04 23 2C FF B6 93 04 23 2D FF B0
            93 04 6A 0C 37 03 7F BF 03 1C 33 5B F9 37 01 71 92 AE AB A2 5B 76
            01 AB 7A 01 AB 7A 02 E5 9C 79 B4 60 02 10 00 64 2F 93 0B 71 8E 6F
            0A B7 7A 01 62 B0 62 2C 05 0B 11 16 0A 18 02 01 19 01 50 16 02 1A
            80 47 AB DE 37 03 7F BF 00 1B FE 6E AB E0 37 03 7F BF 00 1B FE 6E
            AB 6A 0C 37 03 7F BF 00 1B FE 7D AB E7 37 01 80 86 00 1B FE 9D AB
            EB 37 01 8D 86 FE A1 AB ED 37 01 80 86 00 1C 0B 14 88 16 07 AA 6E
            17 9D 21 FE 96 16 02 E8 AC AC 7A 03 2E 07 19 03
           )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM C-CONSTANTP C-CONSTANT-VALUE
      #.C-TYPEP-ALIST1 C-GLOBAL-FUNCTION-CALL-FORM #.C-TYPEP-ALIST2 #:TYPEP
      SYMBOL-SUFFIX C-FUNCALL-INLINE C-TYPEP-ALIST3 LAMBDA #:TYPEP
      DEFTYPE-EXPANDER TYPEP QUOTE C-FORM DEFSTRUCT-DESCRIPTION
      %STRUCTURE-TYPE-P CLOS::CLASS CLOS::CLASS-P CLOS:CLASS-NAME
      CLOS::SUBCLASSP CLOS:CLASS-OF LOAD-TIME-VALUE CLOS:FIND-CLASS C-TYPEP
      SATISFIES 2. "~S: argument to SATISFIES must be a symbol: ~S"
      "~S: Argument zu SATISFIES mu▀ Symbol sein: ~S"
      "~S : L'argument de SATISFIES doit Ωtre un symbole: ~S" LANGUAGE C-WARN
      MEMBER CASE (T) ((T NIL)) C-CASE EQL C-EQL NOT AND OR LET #:TYPEP
  )  )
#Y(#:TOP-LEVEL-FORM-253
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-FORMAT
   REMOVE-OLD-DEFINITIONS
   #Y(C-FORMAT
      #52Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 8D 0A 05
           DB 2E 06 19 01 DB 0E 00 5B 77 DC 0E 00 5B 5B 77 7A 02 0E 00 5B 5B 5B
           7B 03 2E 05 19 01
          )
      *FORM* 3. TEST-LIST FORMAT FORMATTER C-GLOBAL-FUNCTION-CALL-FORM
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-1-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-REMOVE-IF REMOVE-OLD-DEFINITIONS
   #Y(C-REMOVE-IF
      #69Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06 04
           DF 88 05 05 E2 2E 0B 19 02 E0 9C 5B 77 0E 00 5B 5B 7B 02 2E 09 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT REMOVE-IF-NOT C-FORM REMOVE-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-1-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-REMOVE-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-REMOVE-IF-NOT
      #65Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05 05
           E1 2E 0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT REMOVE-IF
      C-FORM REMOVE-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-2-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-DELETE-IF REMOVE-OLD-DEFINITIONS
   #Y(C-DELETE-IF
      #69Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06 04
           DF 88 05 05 E2 2E 0B 19 02 E0 9C 5B 77 0E 00 5B 5B 7B 02 2E 09 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT DELETE-IF-NOT C-FORM DELETE-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-2-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-DELETE-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-DELETE-IF-NOT
      #65Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05 05
           E1 2E 0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT DELETE-IF
      C-FORM DELETE-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-3-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-SUBSTITUTE-IF REMOVE-OLD-DEFINITIONS
   #Y(C-SUBSTITUTE-IF
      #75Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 6E 03 9B
           1F 1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06
           04 DF 88 05 05 E2 2E 0B 19 02 E0 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B
           7B 03 2E 09 19 02
          )
      *FORM* 4. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT SUBSTITUTE-IF-NOT C-FORM SUBSTITUTE-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-3-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-SUBSTITUTE-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-SUBSTITUTE-IF-NOT
      #71Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 6E 03 9B
           1F 16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05
           05 E1 2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08
           19 02
          )
      *FORM* 4. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT
      SUBSTITUTE-IF C-FORM SUBSTITUTE-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-4-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-NSUBSTITUTE-IF REMOVE-OLD-DEFINITIONS
   #Y(C-NSUBSTITUTE-IF
      #75Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 6E 03 9B
           1F 1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06
           04 DF 88 05 05 E2 2E 0B 19 02 E0 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B
           7B 03 2E 09 19 02
          )
      *FORM* 4. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT NSUBSTITUTE-IF-NOT C-FORM NSUBSTITUTE-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-4-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-NSUBSTITUTE-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-NSUBSTITUTE-IF-NOT
      #71Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 6E 03 9B
           1F 16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05
           05 E1 2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08
           19 02
          )
      *FORM* 4. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT
      NSUBSTITUTE-IF C-FORM NSUBSTITUTE-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-5-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) C-FIND-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-FIND-IF
      #69Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06 04
           DF 88 05 05 E2 2E 0B 19 02 E0 9C 5B 77 0E 00 5B 5B 7B 02 2E 09 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT FIND-IF-NOT C-FORM FIND-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-5-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-FIND-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-FIND-IF-NOT
      #65Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05 05
           E1 2E 0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT FIND-IF
      C-FORM FIND-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-6-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-POSITION-IF REMOVE-OLD-DEFINITIONS
   #Y(C-POSITION-IF
      #69Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06 04
           DF 88 05 05 E2 2E 0B 19 02 E0 9C 5B 77 0E 00 5B 5B 7B 02 2E 09 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT POSITION-IF-NOT C-FORM POSITION-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-6-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-POSITION-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-POSITION-IF-NOT
      #65Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05 05
           E1 2E 0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT
      POSITION-IF C-FORM POSITION-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-7-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) C-COUNT-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-COUNT-IF
      #69Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06 04
           DF 88 05 05 E2 2E 0B 19 02 E0 9C 5B 77 0E 00 5B 5B 7B 02 2E 09 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT COUNT-IF-NOT C-FORM COUNT-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-7-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-COUNT-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-COUNT-IF-NOT
      #65Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05 05
           E1 2E 0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT COUNT-IF
      C-FORM COUNT-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-8-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) C-SUBST-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-SUBST-IF
      #75Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 6E 03 9B
           1F 1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06
           04 DF 88 05 05 E2 2E 0B 19 02 E0 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B
           7B 03 2E 09 19 02
          )
      *FORM* 4. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT SUBST-IF-NOT C-FORM SUBST-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-8-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-SUBST-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-SUBST-IF-NOT
      #71Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 6E 03 9B
           1F 16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05
           05 E1 2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08
           19 02
          )
      *FORM* 4. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT SUBST-IF
      C-FORM SUBST-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-9-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-NSUBST-IF REMOVE-OLD-DEFINITIONS
   #Y(C-NSUBST-IF
      #75Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 6E 03 9B
           1F 1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06
           04 DF 88 05 05 E2 2E 0B 19 02 E0 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B
           7B 03 2E 09 19 02
          )
      *FORM* 4. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT NSUBST-IF-NOT C-FORM NSUBST-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-9-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-NSUBST-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-NSUBST-IF-NOT
      #71Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 6E 03 9B
           1F 16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05
           05 E1 2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08
           19 02
          )
      *FORM* 4. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT NSUBST-IF
      C-FORM NSUBST-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-10-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-MEMBER-IF REMOVE-OLD-DEFINITIONS
   #Y(C-MEMBER-IF
      #69Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06 04
           DF 88 05 05 E2 2E 0B 19 02 E0 9C 5B 77 0E 00 5B 5B 7B 02 2E 09 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT MEMBER-IF-NOT C-FORM MEMBER-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-10-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-MEMBER-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-MEMBER-IF-NOT
      #65Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05 05
           E1 2E 0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT MEMBER-IF
      C-FORM MEMBER-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-11-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) C-ASSOC-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-ASSOC-IF
      #69Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06 04
           DF 88 05 05 E2 2E 0B 19 02 E0 9C 5B 77 0E 00 5B 5B 7B 02 2E 09 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT ASSOC-IF-NOT C-FORM ASSOC-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-11-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-ASSOC-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-ASSOC-IF-NOT
      #65Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05 05
           E1 2E 0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT ASSOC-IF
      C-FORM ASSOC-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-12-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   C-RASSOC-IF REMOVE-OLD-DEFINITIONS
   #Y(C-RASSOC-IF
      #69Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           1A 93 00 24 04 15 9B 5B 1F 11 9B 5B 5B 1B 0C DC 87 05 08 DC 87 06 04
           DF 88 05 05 E2 2E 0B 19 02 E0 9C 5B 77 0E 00 5B 5B 7B 02 2E 09 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT RASSOC-IF-NOT C-FORM RASSOC-IF
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-254-12-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   C-RASSOC-IF-NOT REMOVE-OLD-DEFINITIONS
   #Y(C-RASSOC-IF-NOT
      #65Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 6E 03 9B 1F
           16 93 00 24 04 11 9B 5B 1F 0D 9B 5B 5B 1B 08 DC 87 05 04 DE 88 05 05
           E1 2E 0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST MACROEXPAND-FORM COMPLEMENT FENV-SEARCH NOT RASSOC-IF
      C-FORM RASSOC-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-255 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *FNODE-FIXUP-TABLE*) *FNODE-FIXUP-TABLE*
  )
#Y(#:TOP-LEVEL-FORM-256
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) PASS2
   REMOVE-OLD-DEFINITIONS
   #Y(PASS2
      #104Y(00 00 00 00 01 00 00 00 00 02 9C 10 00 6A 00 D9 AB DA 80 32 00 DB
            AB 31 36 16 01 1B 04 00 11 19 02 2D 04 14 6A 00 D9 AB DD 31 32 16
            01 1C 04 AA 2E 06 F6 AA 6E 07 AB 2E 08 F7 6A 00 AC 6E 09 AC 2C 03
            0A 16 02 6A 00 D9 AB E3 80 32 00 62 1A 0E 86 01 00 D9 AB 8E 36 04
            AA 27 FF AE 82 01 AB 8C 97 6E 00 16 02 1A FF B6
           )
      *FUNC* FNODE 2. ANODE COMPILE-TO-LAP 20. CONST-TO-LOADV SP-DEPTH
      INSERT-COMBINED-LAPS ASSEMBLE-LAP CREATE-FUN-OBJ 17.
  )  )
#Y(#:TOP-LEVEL-FORM-257 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *CODE-PARTS*) *CODE-PARTS*
  )
#Y(#:TOP-LEVEL-FORM-258 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *CODE-POSITIONS*) *CODE-POSITIONS*
  )
#Y(#:TOP-LEVEL-FORM-259
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   VALUE-FORM-INDEX REMOVE-OLD-DEFINITIONS
   #Y(VALUE-FORM-INDEX
      #99Y(00 00 00 00 03 00 01 00 00 0A 3A 01 03 0E 00 F7 D9 AC DA 71 32 D9 AD
           DB 71 32 D9 AE DC 71 32 91 02 21 B1 7A 01 D9 B0 DA AD 31 33 16 01 B0
           7A 01 D9 B0 DB AD 31 33 16 01 1A 26 93 01 A2 1A 0B 82 02 82 01 AF 23
           05 73 93 02 A3 14 8D 04 12 84 00 9D 5B 1B 6B AC B2 7A 01 30 AF AB B1
           7A 01 30 AF 15 19 07
          )
      *FUNC* FNODE 17. 18. 16. :FORM
  )  )
#Y(#:TOP-LEVEL-FORM-260
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   CONSTVALUE-INDEX REMOVE-OLD-DEFINITIONS
   #Y(CONSTVALUE-INDEX
      #18Y(00 00 00 00 01 00 00 00 00 02 AB 62 D8 2C 03 01 19 02) :VALUE
      VALUE-FORM-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-261
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   KVALUE-FORM-INDEX REMOVE-OLD-DEFINITIONS
   #Y(KVALUE-FORM-INDEX
      #63Y(00 00 00 00 03 00 01 00 00 0A 3A 01 03 0E 00 F7 AC 23 01 1F AE 8E 8F
           1B DA AC DB 71 32 DA AD DC 71 32 92 00 0C 93 00 A2 21 12 82 00 84 01
           91 00 74 16 02 AE AE AE AE 2C 04 05 19 05 9C 19 07
          )
      *FUNC* :FORM FNODE 9. 14. VALUE-FORM-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-262
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   KCONSTVALUE-INDEX REMOVE-OLD-DEFINITIONS
   #Y(KCONSTVALUE-INDEX
      #18Y(00 00 00 00 01 00 00 00 00 02 AB 62 D8 2C 03 01 19 02) :VALUE
      KVALUE-FORM-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-263
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   CONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(CONST-INDEX
      #52Y(00 00 00 00 01 00 00 00 00 02 0E 00 1C 08 D9 AC DA 71 32 24 03 0D D9
           AC DC 71 32 62 C6 14 2C 03 06 19 02 D9 AC DC 71 32 D9 AD DD 71 32 D9
           AE DA 31 32 1A 69
          )
      *COMPILING-FROM-FILE* CONST 3. :VALUE 1. 2. KVALUE-FORM-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-264
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   MAKE-CONST-CODE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CONST-CODE
      #47Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 23 02 0E D8 AC DB 71 32
           92 00 0F AA 02 21 0E 16 01 D8 AC 6E 06 AD 60 03 19 02 C7 19 03 C8 19
           03
          )
      CONST 3. :FORM 1. (NIL) (T) CONST-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-265
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   BCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(BCONST-INDEX
      #40Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 D9 AC DA 71 32 D9 AD
           DB 71 32 1A 04 82 00 84 01 93 00 A0 22 77 9C 19 05
          )
      *FUNC* FNODE 5. 6.
  )  )
#Y(#:TOP-LEVEL-FORM-266
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   GCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(GCONST-INDEX
      #40Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 D9 AC DA 71 32 D9 AD
           DB 71 32 1A 04 82 00 84 01 93 00 A0 22 77 9C 19 05
          )
      *FUNC* FNODE 7. 8.
  )  )
#Y(#:TOP-LEVEL-FORM-267
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   FCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(FCONST-INDEX
      #47Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 AC D9 AD DA 71 32 37
           03 8B B8 0F AC 6E 03 AC AB 7A 02 0E 04 5C 0F 04 15 19 03 AC 2E 03 19
           03
          )
      *FUNC* FNODE 17. CONSTVALUE-INDEX *FNODE-FIXUP-TABLE*
  )  )
#Y(#:TOP-LEVEL-FORM-268 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *CODE-PART*) *CODE-PART*
  )
#Y(#:TOP-LEVEL-FORM-269 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *CODE-INDEX*) *CODE-INDEX*
  )
#Y(#:TOP-LEVEL-FORM-270 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *DEAD-CODE*) *DEAD-CODE*
  )
#Y(#:TOP-LEVEL-FORM-271 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *LABEL-SUBST*) *LABEL-SUBST*
  )
#Y(#:TOP-LEVEL-FORM-272 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *CURRENT-VALUE*) *CURRENT-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-273 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *CURRENT-VARS*) *CURRENT-VARS*
  )
#Y(#:TOP-LEVEL-FORM-274
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   LABEL-SUBST REMOVE-OLD-DEFINITIONS
   #Y(LABEL-SUBST
      #70Y(00 00 00 00 02 00 00 00 00 03 AC 70 52 62 1A 1A 6A 00 AD 32 01 01 5A
           1A 0A 86 01 00 AD AF AC 8D 0F 6E 9D 78 37 03 30 B3 82 01 AB 8C 97 6B
           16 02 AB AD 70 52 AD 70 52 72 02 24 30 56 AC 62 30 56 AC D9 31 8B 19
           03
          )
      *CODE-PARTS* CODE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-275
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   FINISH-CODE-PART REMOVE-OLD-DEFINITIONS
   #Y(FINISH-CODE-PART
      #37Y(00 00 00 00 00 00 00 00 00 01 6A 00 2E 01 6A 00 6A 02 37 01 30 1B 6A
           03 31 99 0F 03 14 6A 04 37 01 30 1B 19 01
          )
      *CODE-PART* SIMPLIFY *CODE-PARTS* *CODE-INDEX* *CODE-POSITIONS*
  )  )
#Y(#:TOP-LEVEL-FORM-276
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EMIT-JMP
   REMOVE-OLD-DEFINITIONS
   #Y(EMIT-JMP
      #38Y(00 00 00 00 01 00 00 00 00 02 D8 AC 6A 01 7A 03 0E 02 5C 0F 02 6A 03
           AA AD 30 52 79 AD AB 30 56 16 02 2D 04 19 02
          )
      JMP *CURRENT-VALUE* *CODE-PART* *CODE-INDEX* FINISH-CODE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-277
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   TRAVERSE-ANODE REMOVE-OLD-DEFINITIONS
   #Y(TRAVERSE-ANODE
      #1865Y(00 00 00 00 01 00 00 00 00 02 AB 62 1A 87 32 00 0F 00 1A 24 6A 01
             AA AC 2F 02 AA AC AD AD 6A 03 37 03 70 B3 30 BD 0F 03 16 01 1A 0C
             0E 00 1B 5F 6A 01 8D 09 5F AA 2E 04 9B 0F 01 6A 05 70 17 AB DE AC
             31 8A 16 01 1A 86 C1 E1 AB E2 31 32 1A 82 7C AA 8D 09 57 E1 AB 8D
             36 6F E3 CF 1A 86 DD 86 01 00 1F 6D 0E 00 1B 86 D6 6A 03 94 01 37
             03 30 B7 9B 5A 25 0E 86 C2 AA 6E 11 0E 01 5C 0F 01 00 0F 07 1A 82
             28 9B 5B 77 E7 AB E2 71 32 23 10 67 E7 AB EA 71 32 6A 08 62 1A 1A
             16 04 1A 86 A0 D6 1A 24 86 01 00 E7 AB 8E 36 08 E7 AB EA 71 32 9E
             21 68 82 01 AB 8C 97 6A 16 02 AB 6E 11 0E 01 5C 0F 01 92 00 5A D7
             0F 07 9C 1A 83 83 E7 9C 5B 77 6E 15 7A 02 0E 01 5C 0F 01 D7 0F 07
             1A 86 43 E7 9C 5B 77 6E 16 7A 02 0E 01 5C 0F 01 D7 0F 07 1A 86 30
             E7 9C 5B 77 6E 17 7A 02 0E 01 5C 0F 01 D7 0F 07 1A 86 1D D6 1A 15
             E7 AB 2E 15 1A 80 AB F1 AD F2 71 32 E7 AB EA 71 32 92 00 69 D7 0F
             07 F3 AB 8D 36 64 AB 2E 11 16 02 1A 80 93 F5 F1 AE EA 80 32 03 14
             6E 1E 60 02 1A 80 84 64 21 93 03 94 04 AE AE 60 05 16 03 1A 80 75
             91 02 6E 64 22 AC 9D 1A 11 AC AC AC 2C 03 20 41 03 91 01 6C 64 23
             AD AC 31 99 14 60 03 16 03 1A 80 53 64 26 93 02 94 03 AD 60 04 16
             02 1A 80 45 9B 5B 77 9C 5B 5B 77 9D 5B 5B 5B 77 AC 6A 08 F0 37 02
             8B B8 3C F1 AD E2 8D 32 FF 79 00 0F 07 F1 AD F4 8D 32 FF 8C F1 AD
             64 1F 8D 32 FF AB AA F1 AE 64 24 71 32 2F 25 41 02 91 01 FF B5 64
             27 9C 14 60 02 16 02 14 0E 01 5C 0F 01 AC 60 01 1A 80 96 16 03 1A
             85 6F 64 28 F1 AE EA 80 32 03 14 6E 1E 60 02 1A 80 77 64 29 93 03
             94 04 AE AE 60 05 16 03 1A 80 68 91 02 6E 64 2A AC 9D 1A 11 AC AC
             AC 2C 03 20 41 03 91 01 6C 64 2B AD AC 31 99 14 60 03 16 03 1A 80
             46 64 2C 93 02 94 03 AD 60 04 16 02 1A 39 9B 5B 77 9C 5B 5B 77 9D
             5B 5B 5B 77 AC 6A 08 F0 37 02 8B B8 35 F1 AD F4 8D 32 FF 96 F1 AD
             64 1F 8D 32 FF B6 AA F1 AE 64 24 71 32 2F 25 41 02 91 01 41 64 2D
             AB 60 02 16 02 14 0E 01 5C 0F 01 AC 0E 08 5C 0F 08 16 03 1A 84 D7
             16 03 1A 84 D2 F5 AB 6E 1E 7A 02 0E 01 5C 0F 01 00 0F 07 AA 60 01
             1A 2D 9B 5B 77 AA 6A 08 F0 37 02 8C B8 61 16 01 1A 84 AE 9B 5B 77
             AA 6A 08 F0 37 02 8B B8 17 64 28 AB 6E 1E 7A 02 0E 01 5C 0F 01 AA
             0E 08 5C 0F 08 16 01 1A 84 8B 16 01 1A 84 86 03 2E 1A 81 CA 9B 5B
             77 9C 5B 5B 77 9D 5B 5B 5B 77 2C 03 30 14 27 FD 39 1A 84 6B 64 33
             93 01 94 02 7A 03 0E 01 5C 0F 01 16 01 1A 84 59 9B 5B 77 9C 5B 5B
             77 6F 31 93 00 64 32 8F 01 30 5D 94 00 64 32 8F 01 30 55 16 01 1A
             84 3B 9B 5B 77 62 6E 34 9D 5A 25 35 19 03 36 1A 06 03 36 1A 09 03
             37 14 AC 9D 1A 05 03 38 14 AB 9E 14 60 03 1A 01 00 14 0E 01 5C 0F
             01 6A 39 9E 5B 77 AB AB 30 52 79 AB AB 30 56 16 03 6A 39 AA AC 30
             52 79 AC AB 30 56 16 02 2D 3A 6A 05 70 17 AB DE AC 31 8A 16 01 9B
             0F 01 16 02 1A 83 DE 16 01 1A 83 D9 93 00 AA 23 3B 75 AA 23 3C 71
             16 01 1A 83 38 16 01 1A 83 C5 16 01 1A 83 42 37 05 A0 5B 5A F9 70
             67 9C 5B 5B 5B 78 9D 5B 5B 77 62 1A 14 86 01 00 77 94 01 AE 37 06
             71 62 AB B0 AC 30 69 16 02 82 01 AB 8C 97 68 16 02 64 40 AC 6E 41
             AD A0 5B 5B 5B 7B 03 0E 01 5C 0F 01 16 02 9B 5B 5B 78 62 1A 12 86
             01 00 6A 39 AA AC 30 52 79 AC AB 30 56 16 02 82 01 AB 8C 97 6A 16
             02 2D 3A 1A 82 E2 9B 5B 77 9C 5B 5B 77 1A 36 64 26 93 02 94 03 AD
             60 04 16 02 1A 3C AA 9D 5A 78 2F 25 41 02 91 01 68 64 27 AB 60 02
             16 02 1A 28 03 43 1A 24 6A 42 F3 AB E2 31 32 16 01 1B 71 03 44 1A
             15 82 01 9C 5A 1C 7A 9C 5A 20 4F 93 01 0E 42 21 61 E3 64 45 2F 0D
             14 0E 01 5C 0F 01 77 64 46 8E 05 12 D6 0F 07 64 47 64 48 64 48 62
             2C 04 49 14 60 01 1A 03 00 0F 07 0F 08 16 02 1A 82 E1 64 4A 9C 5B
             77 6E 15 9D 5B 5B 77 7A 03 0E 01 5C 0F 01 D7 0F 07 1A 82 AC 64 4B
             9C 5B 77 9D 5B 5B 77 6E 2F 60 03 1A 82 7E 9B 5A 14 9C 5B 77 6E 2F
             60 02 1A 82 71 03 4C 1A 82 6C 9B 5B 77 9C 5B 5B 5B 77 F1 AC 64 1F
             8E 32 05 E3 64 4D 2F 0D AA F1 AD 64 24 71 32 2F 25 41 02 92 01 05
             E3 64 4E 2F 0D 93 04 AB A1 5B 5B 5B 5B 7B 02 0E 01 5C 0F 01 93 04
             24 4F 11 0E 01 77 AF 70 9A AB AB 30 52 79 AB AB 30 56 16 03 00 0F
             07 0F 08 16 04 1A 82 51 9B 5B 5B 77 64 50 9D 5B 77 6E 2F AC 7A 03
             0E 01 5C 0F 01 77 AA AC 30 52 79 AC AB 30 56 16 03 1A 82 2F 9B 5B
             5B 77 9C 5B 77 64 51 AB E2 80 32 00 2F 25 41 02 64 52 93 02 94 03
             AD 60 04 16 02 1A 81 5A 64 53 9C 5B 77 2E 16 1A 18 9B 5B 5B 1B 52
             9B 5B 77 64 51 AB 31 36 16 01 1B 66 64 53 9C 5B 77 2E 2F 14 60 02
             1A 81 33 64 54 9C 5B 77 6E 2F 9D 5B 5B 7B 02 0E 01 5C 0F 01 9B 5B
             78 62 1A 10 86 01 00 AC AB 30 52 79 AB AB 30 56 16 01 82 01 AB 8C
             97 6C 16 02 1A 81 B8 9B 5B 5B 5B 77 9C 5B 77 64 55 AB E2 80 32 00
             2F 25 41 02 64 56 93 02 94 03 AD A1 5B 5B 77 60 05 16 02 1A 80 DE
             64 57 9C 5B 77 2E 17 1A 19 9B 5B 5B 5B 1B 4C 9B 5B 77 64 55 AB 31
             36 16 01 1B 65 64 57 9C 5B 77 2E 2F 14 9D 5B 5B 77 60 03 1A 80 B2
             AA 0E 01 5C 0F 01 D6 0F 07 64 47 64 48 64 48 00 1A 80 93 9B 5B 77
             E7 AB EA 80 32 00 9C 5B 5B 77 6A 42 6F 31 62 AC 64 58 71 2E 1A 0E
             93 00 AA 62 7A 02 AD 7F A6 02 16 01 82 00 9B 20 6F 16 01 AA 7F A8
             00 64 59 80 2E 01 64 5A AC 9D 79 6E 41 AD AD A1 5B 5B 5B 61 04 16
             02 F6 14 0E 01 5C 0F 01 9B 5B 5B 5B 78 62 1A 10 86 01 00 AC AB 30
             52 79 AB AB 30 56 16 01 82 01 AB 8C 97 6C 16 02 1A 80 E6 AA 0E 01
             5C 0F 01 D6 0F 07 1A 80 BD AA 0E 01 5C 0F 01 1A 80 D1 AA 0E 01 5C
             0F 01 D7 0F 07 64 47 64 48 64 48 02 14 6D 04 49 60 01 0F 08 1A 80
             B6 9B 14 0E 01 5C 0F 01 2D 3A 1A 32 0E 07 1C FC 6B 6A 07 23 13 FC
             C7 93 00 AA 23 3D FC CF AA 23 3E FC CA 16 01 93 00 AA 23 3C 05 AA
             24 3E FC C2 16 01 64 3F 0E 01 5C 0F 01 9B 5B 77 2E 04 02 0F 00 1A
             80 73 AA 0E 01 5C 0F 01 9B 5B 1A 1E AA 0E 01 5C 0F 01 9B 5B 77 AB
             AB 30 52 79 AB AB 30 56 16 02 1A 80 52 AA 0E 01 5C 0F 01 9B 5B 77
             AB AB 30 52 79 AB AB 30 56 16 02 1A 07 9B 14 0E 01 5C 0F 01 00 0F
             07 0F 08 1A 2E AA 0E 01 5C 0F 01 D7 0F 07 1A 06 AA 0E 01 5C 0F 01
             00 0F 08 1A 18 AA 0E 01 5C 0F 01 64 5B 6A 08 37 05 31 55 0F 08 1A
             06 E3 03 5C 14 2F 0D 82 01 AB 8C 97 F9 19 00 19 04
            )
      *DEAD-CODE* *CODE-PART* LABEL-SUBST *LABEL-SUBST* EMIT-JMP *CODE-PARTS*
      CODE-PART *CURRENT-VALUE* *CURRENT-VARS* ANODE 3. TRAVERSE-ANODE "ITEM"
      COMPILER-ERROR
      #S(HASH-TABLE EQ (UNBIND1 . 1714.) (UNWIND-PROTECT-CLEANUP . 1703.)
         (LIST* . 1692.) (LIST . 1692.) (CONS . 1692.) (SVSET . 1678.)
         (SVREF . 1678.) (SYMBOL-FUNCTION . 1678.) (CONSP . 1678.)
         (ATOM . 1678.) (CDR . 1678.) (CAR . 1678.) (EQ . 1678.) (NOT . 1678.)
         (MVCALL . 1678.) (LIST-TO-MV . 1678.) (MV-TO-LIST . 1678.)
         (NV-TO-STACK . 1678.) (MV-TO-STACK . 1678.) (STACK-TO-MV . 1678.)
         (UNLIST* . 1678.) (UNLIST . 1678.) (PUSH-UNBOUND . 1678.)
         (APPLY . 1678.) (FUNCALL . 1678.) (CALLCKEY . 1678.) (CALLC . 1678.)
         (CALLSR . 1678.) (CALLS2 . 1678.) (CALLS1 . 1678.)
         (MAKE-VECTOR1&PUSH . 1678.) (POP . 1678.) (PUSH . 1678.)
         (PROGV . 1678.) (PUSH-NIL . 1678.) (UNWIND-PROTECT-CLOSE . 1656.)
         (UNWIND-PROTECT-OPEN . 1633.) (CATCH-OPEN . 1633.) (JSR . 1623.)
         (JMP . 1612.) (THROW . 1556.) (BARRIER . 1556.) (RET . 1556.)
         (T . 1529.) (STORE . 1520.) (HANDLER-BEGIN . 1520.)
         (UNWIND-PROTECT-NORMAL-EXIT . 1520.) (CATCH-CLOSE . 1520.)
         (TAGBODY-CLOSE . 1520.) (BLOCK-CLOSE . 1520.) (MVCALLP . 1520.)
         (VALUES1 . 1520.) (SKIPSP . 1520.) (SKIPI . 1520.) (SKIP . 1520.)
         (VALUES0 . 1508.) (HANDLER-OPEN . 1398.) (TAGBODY-CLOSE-NIL . 1379.)
         (NIL . 1379.) (GO . 1344.) (TAGBODY-OPEN . 1250.)
         (RETURN-FROM . 1220.) (BLOCK-OPEN . 1145.) (BOUNDP . 1059.)
         (JMPIFBOUNDP . 1059.) (APPLYP . 1054.) (FUNCALLP . 1054.)
         (CALL2 . 1041.) (CALL1 . 1041.) (CALL0 . 1041.) (CALL . 1025.)
         (CALLP . 1738.) (COPY-CLOSURE . 1001.) (VENV . 879.) (JMPHASH . 778.)
         (JMPIFNOT1 . 1567.) (JMPIF1 . 1567.) (JMPIFNOT . 1567.)
         (JMPIF . 1567.) (UNWINDSP . 625.) (UNWIND . 585.) (BIND . 580.)
         (SETVALUE . 540.) (GETVALUE . 523.) (SET . 425.) (GET . 261.)
         (GCONST . 125.) (BCONST . 106.) (FCONST . 87.) (CONST . 16.)
        )
      CONST :FORM MAKE-CONST-CODE 1. FALSE TRUE FCONST-INDEX BCONST-INDEX
      GCONST-INDEX #.#'EQ VAR 4. FNODE 2. GETVALUE KCONSTVALUE-INDEX 9.
      ZUGRIFF-IN-CLOSURE LOADIC LOADC LOADV 10. ZUGRIFF-IN-STACK LOADI LOAD
      SETVALUE STOREIC STOREC STOREV STOREI STORE BIND CONST-INDEX
      EXPAND-UNWIND SPDEPTH-DIFFERENCE 0. SKIPSP MAKE-LABEL
      #S(HASH-TABLE EQ (JMPIFNOT1 . 16.) (JMPIF1 . 9.) (JMPIFNOT . 5.)
         (JMPIF . 1.)
        )
      JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE *CODE-INDEX* FINISH-CODE-PART JMPIF
      JMPIF1 JMPIFNOT JMPIFNOT1 (VALUES1) JMPHASH CONSTVALUE-INDEX *FUNC*
      (VENV) (NIL) VENV (NIL) :HORIZONT :VALUE MAKE-CONST COPY-CLOSURE CALL
      (PUSH) VAR-CLOSUREP VAR-STACKZ JMPIFBOUNDP BLOCK-OPEN BLOCK RETURN-FROM-I
      RETURN-FROM TAGBODY-OPEN TAGBODY GO-I GO LIST VECTOR HANDLER-OPEN
      #.#'SYMBOLP "LISTITEM"
  )  )
#Y(#:TOP-LEVEL-FORM-278-1
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
   NOTE-REFERENCES REMOVE-OLD-DEFINITIONS
   #Y(NOTE-REFERENCES
      #154Y(00 00 00 00 01 00 01 00 00 08 3C 01 9D 5A 25 00 80 85 9D 1A 10 9D
            5B 77 AC AB 30 52 79 AB AB 30 56 16 02 9D 5B 5B 77 9D 1A 29 9D 5B
            5B 78 62 AB 8B 97 80 60 86 01 00 AD AB 30 52 79 AB AB 30 56 16 01
            82 01 1A 69 9D 1A 07 9D 5B 1A 03 9D 5B 5B 5B 77 9E 14 AB 30 52 79
            AB AB 30 56 19 05 9D 5B 78 62 AB 8B 97 2E 86 01 00 AE AB 30 52 79
            AB AB 30 56 16 01 82 01 1A 6A 9D 5B 5B 5B 78 62 1A 10 86 01 00 AE
            AB 30 52 79 AB AB 30 56 16 01 82 01 AB 8C 97 6C 00 19 05 00 19 03
           )
      #S(HASH-TABLE EQ (HANDLER-OPEN . 104.) (TAGBODY-OPEN . 78.)
         (JMPTAIL . 61.) (JSR . 57.) (BLOCK-OPEN . 57.)
         (UNWIND-PROTECT-CLOSE . 54.) (UNWIND-PROTECT-OPEN . 54.)
         (CATCH-OPEN . 54.) (JMPIFBOUNDP . 54.) (JMPHASH . 26.)
         (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.) (JMPCASE . 5.) (JMP . 2.)
  )  )  )
#Y(#:TOP-LEVEL-FORM-278-2
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   REMOVE-REFERENCES REMOVE-OLD-DEFINITIONS
   #Y(REMOVE-REFERENCES
      #205Y(00 00 00 00 01 00 01 00 00 08 3C 01 62 9E 5A 25 00 80 B7 9E 1A 19
            9E 5B 77 AA AE AC 70 52 37 07 71 54 30 56 AA AC 37 03 7F BC 01 16
            01 9E 5B 5B 77 AA 9F 1A 35 9E 5B 5B 78 62 1A 17 86 01 00 14 AF AC
            70 52 37 07 71 54 30 56 AA AD 37 03 7F BC 02 82 01 AB 8C 97 65 16
            02 1A 80 6E 9E 1A 07 9E 5B 1A 03 9E 5B 5B 5B 77 AA A0 14 AC 70 52
            37 07 71 54 30 56 AA AC 37 03 7F BC 01 16 01 1A 80 4A 9E 5B 78 62
            1A 17 86 01 00 14 B0 AC 70 52 37 07 71 54 30 56 AA AD 37 03 7F BC
            02 82 01 AB 8C 97 65 16 02 1A 25 9E 5B 5B 5B 78 62 1A 17 86 01 00
            14 B0 AC 70 52 37 07 71 54 30 56 AA AD 37 03 7F BC 02 82 01 AB 8C
            97 65 16 02 15 19 03
           )
      #S(HASH-TABLE EQ (HANDLER-OPEN . 148.) (TAGBODY-OPEN . 111.)
         (JMPTAIL . 82.) (JSR . 78.) (BLOCK-OPEN . 78.)
         (UNWIND-PROTECT-CLOSE . 75.) (UNWIND-PROTECT-OPEN . 75.)
         (CATCH-OPEN . 75.) (JMPIFBOUNDP . 75.) (JMPHASH . 36.)
         (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.) (JMPCASE . 5.) (JMP . 2.)
  )  )  )
#Y(#:TOP-LEVEL-FORM-279
   #58Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 62 1A 0A 86 01 00 14
        AD 63 30 69 82 01 AB 8C 97 72 16 02 DA 8C 62 0B AA DA 70 52 8D 04 04 DA
        DB 2F 04 DA AB 31 85 C5 19 02
       )
   #.#'EQ
   #1=(NIL T CONST LOAD LOADI LOADC LOADV LOADIC STORE STOREI STOREC STOREV
        STOREIC GETVALUE SETVALUE POP VENV COPY-CLOSURE BOUNDP VALUES1
        MV-TO-LIST TAGBODY-CLOSE-NIL NOT EQ CAR CDR CONS ATOM CONSP
        SYMBOL-FUNCTION SVREF SVSET LIST LIST*
      )
   ONE-VALUE-OPS
   (DEFCONSTANT ONE-VALUE-OPS
     (LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
       (DOLIST (OP '#1#) (SETF (GETHASH OP HT) T)) HT
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-280
   #98Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 62 1A 0A 86 01 00 14
        AD 62 30 69 82 01 AB 8C 97 72 16 02 DA 62 1A 0A 86 01 00 14 AD DB 30 69
        82 01 AB 8C 97 72 16 02 DC 62 1A 0A 86 01 00 14 AD DD 30 69 82 01 AB 8C
        97 72 16 02 DE 8C 62 0B AA DE 70 52 8D 04 04 DE DF 2F 08 DE AB 31 85 C9
        19 02
       )
   #.#'EQ
   #1=(NIL PUSH-NIL T CONST LOAD LOADI LOADC LOADV LOADIC GETVALUE POP JSR
        JMPTAIL BARRIER VENV COPY-CLOSURE CALL CALL0 CALLS1 CALLS2 CALLSR
        FUNCALL PUSH-UNBOUND JMPIFBOUNDP BOUNDP VALUES0 STACK-TO-MV MVCALL
        BLOCK-OPEN TAGBODY-OPEN TAGBODY-CLOSE-NIL GO GO-I UNWIND-PROTECT-OPEN
        UNWIND-PROTECT-CLOSE HANDLER-OPEN HANDLER-BEGIN LIST
      )
   #2=(STORE STOREI STOREC STOREV STOREIC SETVALUE BIND PROGV PUSH
        MAKE-VECTOR1&PUSH CALL1 CALL2 CALLC CALLCKEY APPLY UNLIST UNLIST*
        VALUES1 LIST-TO-MV MVCALLP CATCH-OPEN NOT EQ CAR CDR CONS ATOM CONSP
        SYMBOL-FUNCTION SVREF SVSET LIST*
      )
   ONE
   #3=(MV-TO-STACK NV-TO-STACK MV-TO-LIST RETURN-FROM RETURN-FROM-I THROW
        UNWIND-PROTECT-NORMAL-EXIT
      )
   ALL FOR-VALUE-TABLE
   (DEFCONSTANT FOR-VALUE-TABLE
     (LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
       (DOLIST (OP '#1#) (SETF (GETHASH OP HT) 'NIL))
       (DOLIST (OP '#2#) (SETF (GETHASH OP HT) 'ONE))
       (DOLIST (OP '#3#) (SETF (GETHASH OP HT) 'ALL)) HT
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-281
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SIMPLIFY
   REMOVE-OLD-DEFINITIONS
   #Y(SIMPLIFY
      #1029Y(00 00 00 00 01 00 00 00 00 02 93 01 9B 5A 25 00 80 76 9B 5B 77 D9
             37 01 31 86 1A 80 6F C6 1A 80 6B 93 00 23 02 0B 9B 5B 77 D9 37 01
             71 86 23 03 6C 93 00 23 04 0C 9B 5B 5B 77 D9 37 01 71 86 23 03 5B
             C8 1A 80 46 C8 1A 80 42 00 1A 3F C6 1A 3C 9D 5A 5A 25 09 80 48 AC
             E2 9F 5A 5B 77 60 02 1A 82 EB AC CE 1A 82 E6 9D 5A 5A 25 0C 36 AC
             D0 1A 82 DB AC D1 1A 82 D6 9D 5A 5B 77 AD E7 30 AD AD E2 96 02 60
             02 1A 82 88 DE DF 2F 08 F6 62 62 AE 94 00 62 AF 9D 1F 82 EF 9D 5B
             F7 92 00 FF B1 AA 23 05 44 9C 1F 82 DD 9D 5A 5A 25 10 82 D6 9C 5A
             77 6A 11 62 8C 68 82 CC AD 9D F9 1A 81 6A 9C 5A 5A 25 12 82 BF 9C
             5B 1F 82 BA 9C 5B 77 EB 8E 05 82 B2 AD 9D 5B F9 1A 81 4F AC D7 1A
             81 44 AC 03 15 1A 81 3E 9D 5A 5B 77 9D 5A 5A 25 16 80 84 9D 5A 5B
             77 AE E2 AC AE 32 02 35 1A 81 C4 9D 5A 5B 77 9E 5A 5B 5B 77 9F 5A
             5B 5B 5B 77 B0 EF AE AE AE B2 72 02 35 7A 04 30 AD B0 94 06 30 AF
             7D 08 16 04 1A FF 6F AD 03 1A 1A 81 C8 AA 23 19 76 AC F3 30 AD AD
             E2 96 02 7A 02 30 AD 1A 81 D8 AA 23 19 81 46 AD E2 AC 31 9A 1A 81
             A5 AE 03 1C 1A 81 69 AE CD 1A 81 4D AD 03 1D 1A 80 F7 9D 5A 5B 77
             AB AB 8F 01 30 70 16 02 1A 82 19 9D 5A 5B 77 23 18 FF B8 16 01 1A
             82 0C 9C 5A 5A 25 1E 82 05 9C 5A 5B 77 9D 5A 5B 5B 77 9F 5A 5B 77
             A0 5A 5B 5B 77 A1 5A 5B 5B 77 B1 EF F1 B1 B0 32 03 35 1A 1E 9C 5A
             5B 77 9D 5A 5B 5B 77 9F 5A 5B 77 A0 5A 5B 5B 77 A1 5A 5B 5B 77 B1
             EF B0 AF 32 02 35 14 B0 AF 72 02 35 AE 60 04 1A 28 9C 5A 77 AA 24
             1F 30 9D 5A 5B 77 9E 5A 5B 5B 77 A0 5A 5B 77 A1 5A 5B 5B 77 B1 64
             1F AF AE 72 02 35 AF AE 72 02 35 60 03 14 30 AD B1 94 07 30 AF 7D
             09 16 05 1A FE 94 16 01 1A 81 7F AB 64 21 30 AD AC 03 22 1A 81 3D
             93 01 64 20 8D 05 6E 93 01 64 23 8E 05 81 65 AC 03 24 14 30 AD AC
             9D 5B 14 30 AF 1A 81 22 AE 03 27 1A 80 90 9C 5A 77 AA 23 25 80 4D
             AA 24 0A 2A 9D 5A 5B 77 AA 23 19 11 AD E2 96 02 7A 02 30 AD AE 03
             28 14 30 AD 1A 80 8C 9E 5B 1F 51 9E 5B 77 64 26 8E 05 49 16 02 1A
             81 1A 16 01 1A 81 15 AC 03 29 1A 80 D8 9C 5A 77 6A 11 62 8B 68 71
             9C 5A 77 AA 23 2A 04 AA 24 2B 07 AE 9E 5B FA 1A 80 83 16 01 1A 80
             EF 9D 5A 5B 77 9D 5A 5A 25 2C 80 5B AE 03 2D 14 AD 9E 1A 15 9D 5A
             5B 77 AB AB 8F 01 30 6E AB AB 90 01 2F 26 AE CD 14 AC 9F 14 32 01
             36 14 60 02 14 30 AD AE 9F 5B 1A 16 9D 5A 5B 77 AA AC 8F 01 30 FE
             74 AA AC 8F 01 2F FE 73 AF 9F 5B FB 14 30 AF 7D 06 16 02 1A FD A8
             AD 64 2D 9D 14 60 02 14 30 AD AD 9E 5B 1A 18 9D 5A 77 6A 11 62 8C
             68 19 AD 64 2D 96 02 7A 02 30 AD AD 03 2E 14 9F 5C 14 30 AF 7D 05
             16 01 1A FD 77 16 01 1A 80 62 9D 5A 5B 77 9F 5A 5B 77 AF 64 2F AD
             AD 72 02 35 7A 02 30 AD AF 94 05 30 AF 7D 07 16 03 1A FD 52 9D 5A
             78 64 30 8E 05 3A AC 03 31 14 30 AD 7D 04 1A FD 3F 9D 5A 77 6A 32
             AC 7F 68 00 9D F9 9C F8 1A FD 2F AD D9 AD 31 8A 9E FC 16 01 1A 2D
             16 01 1A FD 19 03 18 1A 80 66 9C 5A 77 AA 23 2F FF A0 16 01 9D 20
             4E 92 02 13 14 D9 37 01 71 86 AB 9C 21 07 AA 23 03 4D 92 01 4A 16
             01 16 04 91 00 4E 16 01 62 9F 5A 77 24 33 80 54 9F 5B F6 1F 80 4E
             9B 5A 77 23 34 14 9F 5B 5A 77 24 0A 80 40 9F 5B 5B F6 1F 3A 9B 5A
             77 24 34 34 9B 5A 5B 77 9C 5A 5B 5B 77 AC A2 5B 21 FF 9A A1 5B 5A
             5B 5A 14 B1 64 35 AE AF AE 72 02 35 AF 7A 04 30 AD 16 03 93 00 2E
             36 93 04 2E 37 AE 94 01 30 AF 7C 02 16 01 15 19 03
            )
      #S(HASH-TABLE EQ (THROW . 61.) (RET . 61.) (RETURN-FROM-I . 61.)
         (RETURN-FROM . 61.) (JMPTAIL . 58.) (GO-I . 58.) (GO . 58.)
         (BARRIER . 58.) (JMPHASH . 54.) (JMPCASE1-FALSE . 17.)
         (JMPCASE1-TRUE . 17.) (JMPCASE . 17.) (JMP . 2.)
        )
      FOR-VALUE JMPCASE1-TRUE ALL JMPCASE1-FALSE ONE SIMPLIFY "AT-END"
      COMPILER-ERROR
      #S(HASH-TABLE EQ (SVREF . 13.) (CONS . 13.) (EQ . 13.) (POP . 13.)
         (STACK-TO-MV . 2.) (LIST* . 2.) (LIST . 2.) (CONSP . 99.) (ATOM . 99.)
         (SYMBOL-FUNCTION . 99.) (CDR . 99.) (CAR . 99.) (NOT . 99.)
         (LIST-TO-MV . 99.) (MV-TO-LIST . 99.) (VALUES1 . 99.) (VALUES0 . 99.)
         (BOUNDP . 99.) (VENV . 99.) (GETVALUE . 99.) (LOADIC . 99.)
         (LOADV . 99.) (LOADC . 99.) (LOADI . 99.) (LOAD . 99.) (CONST . 99.)
         (T . 99.) (NIL . 99.)
        )
      SKIP (SKIP 1.)
      #S(HASH-TABLE EQ (STACK-TO-MV . 11.) (LIST-TO-MV . 6.) (VALUES0 . 1.)
         (VALUES1 . 76.)
        )
      (NIL) (CAR) (POP)
      #S(HASH-TABLE EQ (LIST* . 662.) (PUSH-UNBOUND . 718.)
         (NV-TO-STACK . 489.) (MV-TO-STACK . 457.) (PUSH . 392.) (POP . 356.)
         (SKIPSP . 285.) (SKIPI . 204.) (SKIP . 56.) (NOT . 18.) (VALUES1 . 2.)
        )
      ONE-VALUE-OPS #S(HASH-TABLE EQ (CONSP . 27.) (ATOM . 22.) (NOT . 2.))
      (NOT) (CONSP) (ATOM)
      #S(HASH-TABLE EQ (STORE . 111.) (NV-TO-STACK . 479.) (PUSH . 81.)
         (LOAD . 126.) (SKIPI . 16.) (SKIP . 2.)
        )
      SKIPI 0. 1. (POP) (POP) NV-TO-STACK (VALUES1)
      #S(HASH-TABLE EQ (SKIPSP . 35.) (SKIPI . 2.) (SKIP . 168.)) SKIPSP
      (STORE 0.) (VALUES1) (SKIP 1.) (PUSH) (VALUES1) POP (LOAD 0.) (STORE 0.)
      (STORE 0.) (PUSH) VALUES0 STACK-TO-MV
      #S(HASH-TABLE EQ (NIL . 78.) (VALUES0 . 78.) (STACK-TO-MV . 10.))
      PUSH-NIL (PUSH) PUSH-UNBOUND (1.) (CONS) FOR-VALUE-TABLE RET JSR JMPTAIL
      REMOVE-REFERENCES NOTE-REFERENCES
  )  )
#Y(#:TOP-LEVEL-FORM-282
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   OPTIMIZE-PART REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-PART
      #44Y(00 00 00 00 01 00 00 00 00 02 AB 6E 00 91 00 03 00 19 03 14 70 52 62
           1A 0C 86 01 00 14 8E 0F 03 AA 2E 01 82 01 AB 8C 97 70 00 19 05
          )
      SIMPLIFY OPTIMIZE-VALUE
  )  )
#Y(#:TOP-LEVEL-FORM-283
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   OPTIMIZE-LABEL REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-LABEL
      #212Y(00 00 00 00 01 00 03 00 00 11 3A 03 07 AE D8 37 01 80 86 03 3A 02
            07 6A 01 AE 81 01 01 02 3A 01 06 AC 37 01 7F A1 01 AE 9D 5B 22 80
            92 91 04 80 95 00 19 05 62 1A 0B AA 93 05 82 06 B1 6F 04 7F A7 00
            9F 20 72 6A 01 AA B1 62 32 01 02 16 01 AA 62 1A 1E 86 01 00 14 D8
            37 01 71 86 6A 01 AB 72 01 01 92 00 08 AC AC AC 37 01 27 FF 9D 16
            02 82 01 AB 8C 97 5E 00 19 09 AD 6A 01 AC 32 01 01 78 30 AF 6A 01
            AA AC 62 32 01 02 16 01 AD 37 01 30 A1 78 92 00 05 14 D8 B2 31 8A
            16 01 B0 62 30 56 AE 2E 06 19 07 93 00 AA 8E 0F 11 6A 01 AB 32 01
            01 5A 77 24 05 06 AF AB 8E 04 FF BC 00 19 07 DA 2E 03 92 04 FF 6B
            14 70 52 92 00 FF 67 9B 5B 1C 54 00 19 06
           )
      CODE-PART *CODE-PARTS* OPTIMIZE-LABEL COMPILER-ERROR REMOVE-REFERENCES
      JMP OPTIMIZE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-284
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   OPTIMIZE-SHORT REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-SHORT
      #567Y(00 00 00 00 01 00 01 00 00 08 3A 01 07 6A 00 AD 81 01 01 01 AB 37
            01 70 A1 94 00 92 00 82 15 AD 9D 22 81 F4 93 03 9B 5A 25 01 81 EA
            AC AB 2F 02 6A 00 AA B2 62 32 01 02 16 01 AA B1 AC 70 52 37 07 71
            54 30 56 AA 2E 03 16 01 1A 81 C6 62 AE 70 52 62 1A 80 D8 86 01 00
            14 8E 0F 80 CE 6A 00 AB 72 01 01 93 00 9B 5A 25 04 80 BE AB B2 30
            AD AC B1 30 52 79 B1 AB 30 56 16 01 AC B0 30 52 79 B0 AB 30 56 16
            01 AC 83 04 16 02 1A 80 9E 7C 00 92 01 80 7A 1A 80 67 C8 1A 80 7D
            C9 1A 80 79 9B 5B 77 9C 5B 5B 77 93 02 C8 59 14 93 03 C9 59 14 B6
            9F 22 17 A5 F9 B0 B5 30 52 79 B5 AB 30 56 16 01 B0 83 08 93 0B 24
            05 02 7D 01 B6 9E 22 17 A4 F8 B0 B4 30 52 79 B4 AB 30 56 16 01 B0
            83 08 93 0B 24 06 02 7D 00 AD DF 37 01 71 86 23 08 02 7C 01 AC DF
            37 01 71 86 24 08 FF 93 92 01 10 92 00 0D E1 A1 5B 79 B0 AB 30 AF
            16 01 7C 01 F6 AF 91 02 FF 84 91 01 FF 84 CD 14 AF AF 7A 03 30 AD
            16 06 1A 09 E3 2E 0C 16 02 1A 02 16 02 82 01 AB 8C 97 FF 23 16 02
            AE E5 B0 70 52 37 05 71 55 30 56 AE 2E 03 AA 62 1A 19 86 01 00 6A
            00 AB 72 01 01 2E 0E AA 2E 0F AA 6A 00 AC 72 01 01 2F 10 82 01 AB
            8C 97 63 16 06 1A 80 B0 9B 5B 77 9C 5B 5B 77 AD 9D 21 05 AD 9C 22
            FE D5 16 03 1A 80 9B 62 AC 62 30 AF AB 70 52 62 1A 80 57 EC B2 72
            00 17 AA 62 1A 09 86 01 00 14 AF 2F 15 82 01 AB 8C 97 73 16 02 6A
            00 AB 94 03 72 02 24 AB AF AC 32 01 02 16 03 AE AC B0 70 52 37 07
            71 54 30 56 AB 83 03 16 01 1A 1B 86 01 00 14 8E 0F 14 AA B2 8D 04
            0F 6A 00 AB 72 01 01 9B 5A 77 23 13 FF AD 16 01 82 01 AB 8C 97 5F
            16 02 AC AC 30 AF 92 00 26 14 62 1A 0D 86 01 00 6A 00 AB 72 01 01
            2E 16 82 01 AB 8C 97 6F 16 02 AB 2E 03 19 06 9B 5B 77 AC 9C 22 FE
            1B 16 01 00 19 06 16 01 AD 9D 21 05 94 03 9D 22 13 9E 5A 77 23 11
            0D AD 9D 21 FF 51 9E 5B 5A 77 24 12 FF 49 00 19 05
           )
      *CODE-PARTS*
      #S(HASH-TABLE EQ (JMPCASE1-FALSE . 318.) (JMPCASE1-TRUE . 318.)
         (JMPCASE . 318.) (JMP . 479.)
        )
      LABEL-SUBST OPTIMIZE-LABEL
      #S(HASH-TABLE EQ (JMPHASH . 185.) (JMPCASE1-FALSE . 53.)
         (JMPCASE1-TRUE . 53.) (JMPCASE . 53.) (JMP . 2.)
        )
      JMPCASE1-TRUE JMPCASE1-FALSE FOR-VALUE ALL (VALUES1) JMPCASE
      OPTIMIZE-SHORT COMPILER-ERROR #.#'INTEGERP SIMPLIFY OPTIMIZE-VALUE
      OPTIMIZE-JMPCASE JMPHASH HANDLER-OPEN JMP #.#'COPY-LIST NOTE-REFERENCES
      OPTIMIZE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-285
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   GET-BOOLEAN-VALUE REMOVE-OLD-DEFINITIONS
   #Y(GET-BOOLEAN-VALUE
      #213Y(02 00 01 00 01 00 00 00 00 02 62 46 00 80 BF 1A 30 A0 5A 5A 25 01
            80 B4 C5 47 1A 80 B1 C6 47 1A 80 AC A0 5A 5B 5B 1C 0F A0 5A 5B 5B
            77 DC AB DD 80 32 00 23 06 80 95 C6 47 1A 80 92 9E 58 F9 82 05 A0
            20 4D 92 05 80 84 00 2A 01 00 0B 00 00 AA AE 6C 07 02 B1 70 52 62
            1A 80 6B 6A 08 AB 32 01 01 77 9B 5A 25 09 2B 00 16 05 47 1A 80 60
            9B 5B 5B 5A 1C 73 9B 5B 5B 5A 1A 11 B4 9C 5B 5A 22 03 DB 9F 33 B4
            9C 5B 5B 5A 22 0F C5 14 9F 33 16 01 1A 32 E2 2E 0B 16 01 1A 2B 16
            01 1A 27 86 01 00 14 8D 0F FF B6 9B 5A 25 0C 17 00 16 04 47 1A 1E
            C5 19 04 C6 19 04 AA 23 03 76 AA 23 02 75 00 19 04 E2 2E 0B 82 01
            AB 8C 97 53 16 04 00 47 14 91 01 64 15 19 03
           )
      VALUE
      #S(HASH-TABLE EQ (UNWIND-PROTECT-CLEANUP . 41.) (CATCH-CLOSE . 41.)
         (TAGBODY-CLOSE . 41.) (BLOCK-CLOSE . 41.) (VALUES1 . 41.)
         (SETVALUE . 41.) (STOREIC . 41.) (STOREC . 41.) (STOREV . 41.)
         (STOREI . 41.) (STORE . 41.) (SKIPSP . 41.) (SKIPI . 41.) (SKIP . 41.)
         (UNBIND1 . 41.) (NOT . 38.) (CONST . 12.) (LIST* . 7.) (LIST . 7.)
         (CONS . 7.) (T . 7.) (TAGBODY-CLOSE-NIL . 2.) (VALUES0 . 2.)
         (NIL . 2.)
        )
      FALSE TRUE CONST 3. :FORM
      #Y(GET-BOOLEAN-VALUE-NEU
         #33Y(00 00 00 00 01 00 00 00 00 02 07 00 01 1C 09 AB 07 00 01 22 09 00
              19 02 9C 0C 00 01 19 02 00 48 01
             )
         NIL NIL
        )
      *CODE-PARTS*
      #S(HASH-TABLE EQ (JMPCASE1-FALSE . 20.) (JMPCASE1-TRUE . 20.)
         (JMPCASE . 20.) (JMP . 8.)
        )
      GET-BOOLEAN-VALUE COMPILER-ERROR
      #S(HASH-TABLE EQ (CATCH-OPEN . 1.) (BLOCK-OPEN . 1.) (JMPIFBOUNDP . 1.))
  )  )
#Y(#:TOP-LEVEL-FORM-286
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   OPTIMIZE-JMPCASE REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-JMPCASE
      #149Y(00 00 00 00 02 00 00 00 00 03 9C 5A 77 23 00 80 64 00 19 03 AD D9
            AD 94 06 6E 02 7A 03 30 AD AB AF AD 70 52 37 06 DB 71 54 30 56 AD
            2E 04 AB DD 37 01 71 86 2E 06 19 05 E0 AE 94 05 1A 21 9B 5A 5A 25
            09 1E AA 94 01 9C F9 9B F8 16 02 1A 10 B0 2E 04 B1 2E 06 19 08 AB
            82 01 14 30 AF 84 02 9B 20 5C AC 8E 97 08 B0 D8 AF B1 7A 03 30 AD
            AC 8D 95 5D 00 19 08 9C 5A 5B 77 9D 5A 5B 5B 77 AB 9C 21 FF 91 AB
            DF 37 01 8D 86 08 AA DF 37 01 8E 86 FF A6 00 19 05
           )
      JMPCASE JMP GET-BOOLEAN-VALUE 1. OPTIMIZE-PART CODE-PART OPTIMIZE-SHORT
      FOR-VALUE 0.
      #S(HASH-TABLE EQ (NOT . 20.) (UNWIND-PROTECT-CLEANUP . 1.)
         (CATCH-CLOSE . 1.) (TAGBODY-CLOSE . 1.) (BLOCK-CLOSE . 1.)
         (VALUES1 . 1.) (SKIPSP . 1.) (SKIPI . 1.) (SKIP . 1.) (UNBIND1 . 1.)
  )  )  )
#Y(#:TOP-LEVEL-FORM-287
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   OPTIMIZE-VALUE REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-VALUE
      #237Y(00 00 00 00 01 00 01 00 00 08 3A 01 07 6A 00 AD 81 01 01 01 93 01
            9B 5A 25 01 80 CE AB B1 AD 70 52 37 07 71 54 30 56 AF E2 AE CE 7B
            02 30 AD 93 03 24 02 0D E4 A1 5B 79 B0 AB 30 AF 16 01 AF 2E 0D AF
            2E 0E 9C 1A 80 65 9B 5B 77 9C 5B 5B 77 93 02 24 02 09 AB DB 37 01
            71 86 24 04 0E 93 02 24 05 15 AA DB 37 01 71 86 23 04 0C AE DE 9F
            5B 79 7F AD 02 AF AF 2F 07 94 04 6E 08 AA 23 09 FF 9C AA 24 11 31
            AC B1 AE 70 52 37 07 71 54 30 56 AF E2 AD D5 7B 02 30 AD 93 03 24
            05 0D EB A1 5B 79 B0 AB 30 AF 16 01 AF 2E 0D AF 2E 0E 9D 14 2E 0F
            B0 2E 10 19 07 00 19 07 AE E2 AD AD 7A 03 30 AD AB EC 37 01 71 86
            37 01 28 02 08 FF 3D 94 03 6E 08 91 00 64 00 19 06 9B 5B 77 AA DB
            37 01 8E 86 06 9C 5B 5B 5A 1C 66 00 19 05 00 19 04
           )
      *CODE-PARTS*
      #S(HASH-TABLE EQ (JMP . 189.) (JMPCASE1-FALSE . 46.)
         (JMPCASE1-TRUE . 46.) (JMPCASE . 46.)
        )
      JMPCASE1-TRUE FOR-VALUE ALL JMPCASE1-FALSE JMPCASE OPTIMIZE-JMPCASE
      GET-BOOLEAN-VALUE TRUE JMP (TRUE) (VALUES1) SIMPLIFY OPTIMIZE-PART
      OPTIMIZE-LABEL OPTIMIZE-SHORT FALSE (FALSE) (VALUES1) CODE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-288
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) COALESCE
   REMOVE-OLD-DEFINITIONS
   #Y(COALESCE
      #129Y(00 00 00 00 00 00 01 00 00 07 3A 01 1B 62 D8 6A 01 70 17 1A 05 AB
            83 02 84 01 AB AB 90 01 32 75 16 02 AA 31 4C 16 01 F7 00 2A 01 37
            05 C5 F9 B1 80 4A 02 70 67 AD 62 1A 32 86 01 00 6A 01 AB 72 01 01
            9B 1F 22 9B 5B 1F 1E 9B 5B 5B 1F 19 93 00 9C 5B 77 9D 5B 5B 5A 7B
            02 AC AB B0 62 30 68 79 AB B0 AC 30 69 16 02 16 01 82 01 AB 8C 97
            4A 16 02 00 0B 01 00 AB 6C 03 01 AB 30 6B 06 01 00 19 04
           )
      0. *CODE-PARTS* #.#'EQUAL
      #Y(COALESCE-1
         #262Y(00 00 00 00 02 00 00 00 00 03 9C 5B 1B 03 00 19 03 62 AC 1A 0E
               93 00 6A 01 AB 72 01 01 83 02 16 01 82 00 9B 20 6F 16 01 AA 7F
               A8 00 62 6A 01 70 17 DA 62 B0 1A 0E 93 00 6A 03 AB 72 01 01 83
               02 16 01 82 00 9B 20 6F 16 01 AA 7F A8 00 37 05 71 4E 1A 3C AF
               B2 1A 16 16 03 1A 17 93 01 9C 1F 77 93 01 93 01 AB 2F 06 16 02
               82 01 82 00 9C 20 6B 16 02 AF 1A 08 AA 9C 5A 78 30 AD 82 00 9B
               20 75 16 01 67 01 00 83 04 67 01 00 AE 2F 07 16 02 DC AE 90 00
               28 17 29 2A 01 93 04 9B 5A 0B 01 00 AB 6C 05 01 94 06 8F 00 28
               FF A9 16 02 E0 6E 09 E2 AB CE 7B 02 AF B2 1A 1C 16 03 1A 1D 93
               01 9C 1F 77 93 01 6A 01 AF 9E 79 AB AD AC 32 01 02 16 04 82 01
               82 00 9C 20 65 16 02 AB B2 30 56 AB E4 AF 31 8A AE AC 70 A7 6A
               01 37 01 30 1B AC 6A 03 37 01 30 1B 16 02 6A 01 AC 72 01 01 2E
               0D AF 2E 0E 02 0C 00 01 19 07
              )
         NIL *CODE-PARTS* #.#'MAX *CODE-POSITIONS* #.#'CONSP
         #Y(COALESCE-1-1
            #19Y(00 00 00 00 01 00 00 00 00 02 93 01 68 00 01 31 05 19 02) NIL
           )
         REMOVE-REFERENCES NOTE-REFERENCES ALL MAKE-LABEL JMP (NIL) CODE-PART
         OPTIMIZE-PART COALESCE
  )  )  )
#Y(#:TOP-LEVEL-FORM-289
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   OPTIMIZE-ALL REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-ALL
      #617Y(00 00 00 00 00 00 00 00 00 01 D8 1A 80 5B 6A 01 AB 72 01 01 92 00
            21 14 37 01 70 A1 94 00 92 00 0E AD AB DA 37 01 71 86 8D 04 04 DB
            DA 2F 04 AA AE AE AE 2C 04 05 16 02 16 01 6A 01 AB 72 01 01 92 00
            04 AB AB 2F 06 16 01 6A 01 AB 72 01 01 92 00 04 AB AB 2F 07 16 01
            6A 01 AB 72 01 01 92 00 04 AB AB 2F 08 16 01 84 00 AA 6A 01 70 17
            8E 04 FF 9C 16 01 2D 09 1B FF 91 D8 6A 01 70 17 1A 81 39 A3 FF 16
            08 1A 81 32 B0 B0 6A 01 B0 32 01 01 5B 79 30 AF 6A 01 AA AF 62 32
            01 02 16 01 A1 FE 16 08 00 2A 01 AB 37 01 70 A1 94 00 AA 70 52 6A
            0A B0 32 01 01 0B 03 00 01 03 92 04 44 B0 6C 0B 01 AE 62 1A 80 D1
            86 01 00 14 8E 0F 80 C7 AA B6 8D 04 80 C1 6A 01 AB 32 01 01 77 9B
            5A 25 0C 80 B2 AB B1 A0 33 1C 80 AB 9C FC 16 01 1A 80 A6 9C FB 16
            01 1A 80 9F B2 9C 5B 1A 02 B2 9C 5B 5A 22 80 91 AB AF A0 33 1C 80
            8A 9C FA 16 01 1A 80 85 E5 9C 5B 1A 10 6A 01 AC 72 01 01 93 00 B1
            9C 5B 5A 21 6D E6 9C 5B 77 7A 02 B3 B3 AC A0 5B 7B 02 30 AF 6A 01
            AA B0 62 32 01 02 16 01 A4 09 0B 16 0B 1A FF 5E E8 9D 5B 1A 23 6A
            01 AD 72 01 01 93 00 9B 5B 77 E7 37 01 8D 86 09 9B 5B 5B 77 E7 37
            01 31 86 14 B2 9D 5B 5A 21 5A E9 9D 5B 77 AC 7A 03 B4 B4 AC A1 5B
            7B 02 30 AF 6A 01 AA B2 62 32 01 02 16 01 A5 09 0C 16 0C 1A FF 16
            AB B0 A0 33 1B FF 5C 16 01 82 01 AB 8C 97 FF 2A 16 02 91 03 FE E6
            91 01 FF 6F 91 02 FF 9F 16 09 1A 0C 6A 01 AB 72 01 01 91 00 FE EA
            16 01 85 00 14 24 00 6E 16 01 6A 0A AA AC D8 32 01 02 16 01 EA EB
            6A 01 6A 0A 72 01 26 EC AB 37 05 80 56 00 14 ED EE 37 02 80 6A 00
            62 AB 62 1A 80 75 86 01 00 77 93 00 9B 5A 25 17 80 4C AB F0 9D 5B
            77 7A 02 30 AD 1A 80 40 F0 9C 5B 77 7A 02 E8 9D 5B 5B 77 9E 5B 77
            E7 37 01 8D 86 09 9E 5B 5B 77 E7 37 01 31 86 14 60 03 1A 18 F0 9C
            5B 5B 77 7A 02 E6 9D 1A 09 F0 9C 5B 77 7A 02 E5 9D 5B 5B 77 60 02
            14 9E 5B 61 02 F7 16 01 AA 37 01 70 A1 9B 5B 1C 07 AA 94 01 7A 01
            30 AF 16 01 AA AE 7F A7 03 16 01 82 01 AB 8C 97 FF 86 16 02 15 19
            03
           )
      0. *CODE-PARTS* CODE-PART OPTIMIZE-ALL COMPILER-ERROR OPTIMIZE-LABEL
      OPTIMIZE-JMPCASE OPTIMIZE-VALUE OPTIMIZE-SHORT COALESCE *CODE-POSITIONS*
      #Y(OPTIMIZE-ALL-BETTER
         #53Y(00 00 00 00 02 00 00 00 00 03 9C 58 1D 25 6A 01 AC 72 01 01 6A 01
              AE 72 01 01 AB 68 00 01 8F 01 30 0A AB AB 68 00 01 32 02 31 19 05
              AA AC 32 01 31 19 05 19 03
             )
         NIL *CODE-POSITIONS*
        )
      #S(HASH-TABLE EQ (JMPCASE1-FALSE . 28.) (JMPCASE1-TRUE . 23.)
         (JMPCASE . 173.) (JMP . 2.)
        )
      JMPIFNOT1 JMPIF1 FOR-VALUE JMPIFNOT JMPIF LIST #.#'CONS #.#'CAR #.#'>
      #.#'CDR
      #S(HASH-TABLE EQ (JMPCASE1-FALSE . 59.) (JMPCASE1-TRUE . 48.)
         (JMPCASE . 14.) (JMP . 2.)
        )
      JMP
  )  )
#Y(#:TOP-LEVEL-FORM-290
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   COMPILE-TO-LAP REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-TO-LAP
      #89Y(00 00 00 00 00 00 00 00 00 01 D8 63 37 06 C4 F8 70 1C D8 63 37 06 C4
           F8 30 1C 10 02 9E 10 03 DC 60 01 10 05 C4 10 06 00 10 07 00 10 08 00
           10 09 00 10 0A 6A 0B E4 AB E5 80 32 00 E6 AB E7 80 32 00 2E 10 12 06
           2D 11 14 93 00 82 01 EA 8D 05 04 EB EC 2F 15 15 12 02 19 02
          )
      10. 0. *CODE-POSITIONS* *CODE-PARTS* (START) *CODE-PART* *CODE-INDEX*
      *DEAD-CODE* *LABEL-SUBST* *CURRENT-VALUE* *CURRENT-VARS* *FUNC* FNODE 2.
      ANODE 3. TRAVERSE-ANODE OPTIMIZE-ALL (START) COMPILE-TO-LAP START
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-291
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   CONST-TO-LOADV REMOVE-OLD-DEFINITIONS
   #Y(CONST-TO-LOADV
      #79Y(00 00 00 00 01 00 00 00 00 02 AB 92 00 3C 93 00 9B 1F 30 9B 5A 25 00
           2B AB 93 01 9D 5B 77 71 99 9E 5B 5B 61 02 1A 13 AB D9 DA 9E 5B 77 60
           03 1A 09 AB C6 1A 05 AB DC 9D 5B 5C 14 30 AD 1A 04 DD DE 2F 07 16 01
           82 00 91 00 44 16 01 9C 19 02
          )
      #S(HASH-TABLE EQ (GO . 40.) (TAGBODY-OPEN . 40.) (RETURN-FROM . 40.)
         (BLOCK-OPEN . 40.) (CALL2 . 40.) (CALL1 . 40.) (CALL0 . 40.)
         (CALL . 40.) (COPY-CLOSURE . 40.) (BIND . 40.) (SETVALUE . 40.)
         (GETVALUE . 40.) (JMPHASH . 30.) (VENV . 26.) (CONST . 16.)
         (STOREV . 1.) (LOADV . 1.)
        )
      LOADV 0. (LOADV 0. 0.) JMPHASHV CONST-TO-LOADV "Illegal-in-GF"
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-292
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SP-DEPTH
   REMOVE-OLD-DEFINITIONS
   #Y(SP-DEPTH
      #1119Y(00 00 00 00 01 00 00 00 00 02 D8 D8 01 02 AF D8 C3 79 92 01 83 E1
             93 01 9B 1F 22 9B 5A 25 02 83 CE 16 02 92 03 84 33 1A 83 D1 AC 94
             01 89 01 71 AC 9C 5B 79 AB AB 30 AF 16 02 1A 83 B2 AA AE 37 03 70
             BF 91 00 64 AB AD 7A 02 83 04 16 01 1A 83 9E AD 94 01 89 01 83 FC
             AD 9C 5B 79 AB AB 30 AF 16 04 92 03 83 F4 1A 83 92 AD 9C 5B 79 AB
             AB 30 AF 16 03 1A 83 79 AB AE 7A 02 83 06 16 02 1A 83 6E 9B 5B 77
             AA AF 37 03 70 BF 92 00 06 AD 94 01 89 01 0F AB B1 37 03 7F BF 00
             1C 5A AD 94 01 8A 01 47 16 02 1A 83 48 AE 94 01 89 01 37 AE 9C 5B
             79 AB AB 30 AF 16 01 1A 2B 9B 5B 5B 78 62 AB 8B 97 83 91 86 01 00
             14 B0 37 03 70 BF 92 00 06 AE 94 01 89 01 0F AB B2 37 03 7F BF 00
             1B 49 AB AF 7A 02 83 07 16 01 82 01 1A 54 AC 9C 5B 79 AB AB 30 AF
             16 04 1A 82 F8 AB AD 7A 02 83 07 16 03 1A 82 ED D8 C3 79 9C 5B 5B
             77 AA B0 37 03 70 BF 92 00 06 AC 94 01 89 01 0F AB B2 37 03 7F BF
             00 1C 56 AC 94 01 8A 01 43 16 03 1A 82 C3 AB D8 C3 79 8D 05 03 DB
             2E 04 16 01 92 03 83 1E 1A 82 BC AB DD C3 1A 82 4C AD 94 01 89 01
             2D AD 9C 5B 79 AB AB 30 AF 16 01 1A 21 9B 5B 77 AA AF 37 03 70 BF
             92 00 06 AD 94 01 89 01 0F AB B1 37 03 7F BF 00 1B 53 AB AE 7A 02
             83 06 16 02 AB DF C8 1A 82 11 AB DF C8 79 2F 08 F7 77 8D 96 06 94
             01 8E 96 82 5E DB CC 1A 82 56 AD 94 01 89 01 80 43 AD 9C 5B 79 AB
             AB 30 AF 16 01 1A 37 AB E2 C3 79 2F 06 F7 B0 93 02 81 01 33 06 AF
             94 02 81 01 33 05 9B 5B 77 AA AF 37 03 70 BF 92 00 06 AD 94 01 89
             01 10 AB B1 37 03 7F BF 00 1B FF BC AB AE 7A 02 83 06 16 02 AB E2
             C3 79 2F 08 F7 77 8D 96 05 94 01 8E 96 04 DB E1 2F 04 AB DF C8 1A
             81 95 AB DF C8 79 2F 08 F7 77 8D 96 05 94 01 8E 96 04 DB E1 2F 04
             AB E2 C3 1A 81 7B AD 94 01 89 01 2D AD 9C 5B 79 AB AB 30 AF 16 01
             1A 21 9B 5B 77 AA AF 37 03 70 BF 92 00 06 AD 94 01 89 01 0F AB B1
             37 03 7F BF 00 1B 53 AB AE 7A 02 83 06 16 02 AB E2 C3 79 2F 08 F7
             77 8D 96 06 94 01 8E 96 81 93 DB CC 1A 81 8B AB DF C8 79 2F 08 F7
             77 8D 96 06 94 01 8E 96 81 7D DB CC 1A 81 75 AD 94 01 89 01 2E AD
             9C 5B 79 AB AB 30 AF 16 01 1A 22 9B 5B 5B 77 AA AF 37 03 70 BF 92
             00 06 AD 94 01 89 01 0F AB B1 37 03 7F BF 00 1B 52 AB AE 7A 02 83
             06 16 02 AB DF C8 1A 80 DE AB DF C8 79 2F 08 F7 77 8D 96 06 94 01
             8E 96 81 2B DB CC 1A 81 23 AB DD C8 79 2F 06 F7 B0 93 02 81 01 33
             06 AF 94 02 81 01 33 05 9B 5B 78 62 1A 37 AE 94 01 89 01 2D AE 9C
             5B 79 AB AB 30 AF 16 01 1A 21 86 01 00 14 B0 37 03 70 BF 92 00 06
             AE 94 01 89 01 0F AB B2 37 03 7F BF 00 1B 53 AB AF 7A 02 83 07 16
             01 82 01 AB 8C 97 57 16 02 1A 80 CB AB DD C8 79 2F 08 F7 77 8D 96
             06 94 01 8E 96 80 BA DB CC 1A 80 B2 AB 9C 5B 5B 5B 77 8D 05 03 DB
             2E 04 9B 5B 5B 5B 78 62 1A 37 AE 94 01 89 01 2D AE 9C 5B 79 AB AB
             30 AF 16 01 1A 21 86 01 00 14 B0 37 03 70 BF 92 00 06 AE 94 01 89
             01 0F AB B2 37 03 7F BF 00 1B 53 AB AF 7A 02 83 07 16 01 82 01 AB
             8C 97 57 16 02 1A 80 61 AB DD C3 79 2F 06 F7 B0 93 02 81 01 33 06
             AF 94 02 81 01 33 05 1A 80 49 AB DD C3 79 2F 08 F7 77 8D 96 05 94
             01 8E 96 39 DB CC 1A 32 AB 9C 5B 77 9D 5B 5B 5A 79 2F 08 F7 77 8D
             96 05 94 01 8E 96 20 DB CC 1A 19 AB 9C 5B 77 71 99 9D 5B 5B 5A 79
             2F 08 F7 77 8D 96 05 94 01 8E 96 05 DB CC 14 2F 04 16 01 82 01 91
             01 FC 1F 92 03 80 5F 93 03 93 00 94 01 93 00 82 01 AD AC 30 AF 15
             16 01 F8 9C 5B 1B 02 82 05 AA AF 37 03 70 BF 92 00 06 AD 94 01 89
             01 32 AB B5 E3 37 02 7F B8 04 16 03 92 01 48 1A FB E4 9B 5B 77 AA
             AF 37 03 70 BF 92 00 06 AD 94 01 89 01 10 AB B1 37 03 7F BF 00 1B
             FC 03 AB AE 7A 02 83 06 16 03 91 03 FF A1 AF A0 5C 19 08
            )
      0. SOME-SPD<=
      #S(HASH-TABLE EQ (SKIPI . 948.) (SKIPSP . 923.) (MVCALL . 903.)
         (HANDLER-BEGIN . 879.) (MVCALLP . 879.) (HANDLER-OPEN . 795.)
         (TAGBODY-CLOSE . 773.) (TAGBODY-CLOSE-NIL . 773.)
         (TAGBODY-OPEN . 682.) (BLOCK-CLOSE . 660.) (BLOCK-OPEN . 618.)
         (UNWIND-PROTECT-CLEANUP . 578.) (UNWIND-PROTECT-CLOSE . 521.)
         (UNWIND-PROTECT-NORMAL-EXIT . 477.) (UNWIND-PROTECT-OPEN . 394.)
         (CATCH-CLOSE . 353.) (CATCH-OPEN . 312.) (PROGV . 288.) (RET . 269.)
         (GO-I . 279.) (GO . 279.) (RETURN-FROM-I . 279.) (RETURN-FROM . 279.)
         (THROW . 279.) (BARRIER . 279.) (JSR . 227.) (JMPTAIL . 154.)
         (JMPHASHV . 154.) (JMPHASH . 154.) (JMPIFBOUNDP . 98.)
         (JMPIFNOT1 . 98.) (JMPIFNOT . 98.) (JMPIF1 . 98.) (JMPIF . 98.)
         (JMP . 1043.)
        )
      SP-DEPTH COMPILER-ERROR 1. SPD+ 2. SPD- "<0" 3. #.#'EQ
  )  )
#Y(#:TOP-LEVEL-FORM-293
   #74Y(00 00 00 00 00 00 00 00 00 01 00 2A 04 D8 6A 01 37 01 70 68 2E 02 0B 00
        00 DB 6A 01 37 01 70 68 2E 02 0B 00 01 DC 6A 01 37 01 70 68 2E 02 0B 00
        02 DD 6A 01 37 01 70 68 2E 02 0B 00 03 DE 2E 07 DE AB 6C 08 01 31 84 C9
        19 02
       )
   1+ FUNCTION-CODES CALLS-CODE 1- ATOM CONSP INSERT-COMBINED-LAPS
   REMOVE-OLD-DEFINITIONS
   #Y(INSERT-COMBINED-LAPS
      #989Y(00 00 00 00 01 00 00 00 00 02 AB 92 00 80 7C 93 00 9B 1F 80 6E 9B
            5A 25 01 80 68 94 00 00 1A 80 5F C8 1A 21 AB 23 04 79 C9 1A 1A C9
            1A 17 16 01 9C 5B 5A 5B 5B 5A 1B 38 AB 9D 5B 5A 77 23 02 64 AB 23
            04 67 C8 14 9E 5B 5A 5B 77 7A 02 30 AD AB 9D 5B 5B 1A 2B 07 00 03
            1A 22 86 00 00 9C 5B 5A 1F 0E 9C 5B 5A 77 AA 23 02 44 AA 23 03 40
            16 01 AB DF 30 AD AB AB 23 04 5C 07 00 04 14 9E 5B 5C 14 30 AF 16
            01 82 00 91 00 FF 84 16 01 AB 94 00 92 01 83 44 93 01 9B 1F 83 27
            9C 5A 1F 80 49 93 00 9D 5A 5A 25 08 34 CC 1A 32 CD 1A 01 CE 14 9E
            5A 5B 5B 5A 1C 02 82 00 93 03 94 00 62 30 AF 16 01 15 1A 18 CF 1A
            15 D0 1A 12 D1 1A 0F AD AB 94 03 A0 5A 78 32 02 23 5C 1A 81 CF 00
            14 E7 37 02 30 BF 78 91 00 67 16 01 9B 5A 25 10 82 D3 9E 1A 0D D6
            1A 82 06 AB AB 81 02 35 01 16 01 9D 5B F8 AC D4 73 91 00 6F 16 01
            AD AB 23 12 64 D7 1A 81 E6 AC D4 73 91 00 57 16 02 1A 82 A7 AE EF
            9D 1A 80 DB AE F1 9D 1A 80 A1 9C 5B 77 9E 5B 77 EE 8D 05 6A 9E 5B
            5A 1F 07 9E 5B 5A 77 23 18 64 AE F2 AC 7A 02 30 AD AE 9F 1A 80 BC
            16 03 1A 82 74 03 1C 1A 0A AD 9E 5B 5A 77 23 02 74 03 1D 14 9E 5B
            77 A0 5B 5A 5B 77 60 03 1A 80 C8 9C 5A 1F 82 51 9C 5A 77 AA 23 15
            FF B0 AA 24 1B 1D 9D 5B 5A 1F 18 9D 5B 5A 77 AA 23 02 05 AA 24 03
            FF BC 16 01 9D 5B 5A 5B 5B 5A 1C FF BA 16 02 1A 82 25 9C 5A 1F 82
            1E 9B 5B 77 9D 5A 5A 25 1E 81 06 AE 03 20 1A 80 48 9D 5B 5A 1F 80
            FA 9D 5B 5A 77 AA 23 1F 6C AA 24 18 0E AE 64 21 9E 14 A1 5B 5A 5B
            77 60 03 1A 2D 16 03 1A 81 EB AE 03 22 1A 1E 9D 5B 5A 1F 80 D0 9D
            5B 5A 77 AA 23 1F 6D AA 24 18 1F AB 9F 5B 5A 5B 77 8E 04 16 AE 03
            23 14 9E 14 60 02 14 30 AD AE 9F 5B 78 30 AF 16 03 1A 81 B5 16 03
            1A 81 B0 9D 5B 5A 1F 80 9A 9D 5B 5A 77 24 18 80 92 9D 5B 5A 5B 77
            96 01 8E 04 80 87 AD 64 24 96 02 60 02 14 30 AD AD 9E 1A 2B 03 26
            1A 1E AD 9E 5B 77 68 00 01 8D 05 72 03 27 1A 10 03 28 1A 0C AD 9E
            5B 77 68 00 01 8D 05 72 03 29 14 AC 7A 02 30 AD AD 9E 5B 5B 5B 1A
            80 96 9D 5B 5A 1F 35 9D 5B 77 68 00 01 8D 05 09 9D 5B 77 68 00 02
            8E 05 23 9D 5B 5B 5A 1F 1D 9D 5B 5B 77 64 25 8D 05 FF AD 9D 5B 5B
            5A 77 24 18 0B 9D 5B 5B 5A 5B 77 AB 8D 04 FF AC AD 64 2A AC 60 02
            14 30 AD AD 9E 5B 1A 80 4D 16 02 1A 81 0B AC 64 2C 9D 5B 77 60 02
            1A 80 C7 AC 64 2E 9D 5B 5B 77 7A 02 30 AD AC 9D 5B 1A 80 BD 93 01
            64 2D 8D 05 68 AC 64 2F 9D 5B 1A 34 EA 1A 04 84 00 82 02 93 02 64
            30 8D 05 75 AA 23 12 14 AD 03 31 14 AC 60 02 14 30 AD AD 9E 14 30
            AF 16 02 1A 80 BB 16 02 1A 80 B6 AC 03 32 1A 08 AC 93 01 9D 5B 77
            60 02 14 30 AD 16 01 1A 80 A1 29 2A 02 9C 5B 5B 5A 0B 00 00 9C 5B
            5B 5B 5B 0B 00 01 AA 6C 33 01 67 01 00 30 6B 16 01 9B 5B 1A 21 9B
            5B 5B 77 9C 5B 5B 5B 78 EA 92 01 11 93 01 AD 9D 5F 82 01 64 34 AB
            81 02 35 00 91 01 6F 16 03 9B 5B 78 00 1A 28 9C 5A 1F 80 53 9C 5A
            77 24 35 80 4C 9C 5B 77 64 36 8E 05 80 43 AC 64 37 9D 5B 77 9F 5A
            5B 77 60 03 14 30 AD AC 9D 5B 5B 14 30 AF 16 01 1A 2B 93 01 64 2B
            8E 05 22 9C 5B 5A 1F 1D 9C 5B 5A 77 24 18 16 9C 5B 5A 5B 77 9C 5B
            77 8E 04 0B 9C 5B 5B 77 9C 5B 5B 5A 21 FE F7 16 01 93 00 64 38 8E
            05 06 AB 82 01 14 30 AF 9B F7 5B F6 91 01 FC BC 16 02 9C 19 02
           )
      NIL #S(HASH-TABLE EQ (CONSP . 65.) (ATOM . 65.) (CONST . 2.)) JMPIF
      JMPIFNOT ATOM JMPIFATOM JMPIFCONSP (PUSH)
      #S(HASH-TABLE EQ (RET . 36.) (STOREC . 33.) (STORE . 30.) (JMPIFNOT . 7.)
         (JMPIF . 4.) (PUSH . 1.)
        )
      ((T . T&PUSH) (CONST . CONST&PUSH) (LOADI . LOADI&PUSH)
        (LOADC . LOADC&PUSH) (LOADV . LOADV&PUSH) (GETVALUE . GETVALUE&PUSH)
        (CALL . CALL&PUSH) (CALL1 . CALL1&PUSH) (CALL2 . CALL2&PUSH)
        (CALLS1 . CALLS1&PUSH) (CALLS2 . CALLS2&PUSH) (CALLSR . CALLSR&PUSH)
        (CALLC . CALLC&PUSH) (CALLCKEY . CALLCKEY&PUSH) (CAR . CAR&PUSH)
        (CDR . CDR&PUSH) (CONS . CONS&PUSH) (LIST . LIST&PUSH)
        (LIST* . LIST*&PUSH) (FUNCALL . FUNCALL&PUSH) (APPLY . APPLY&PUSH)
        (COPY-CLOSURE . COPY-CLOSURE&PUSH) (HANDLER-BEGIN . HANDLER-BEGIN&PUSH)
      )
      ((EQ . JMPIFEQ) (LOAD . LOAD&JMPIF) (CALL1 . CALL1&JMPIF)
        (CALL2 . CALL2&JMPIF) (CALLS1 . CALLS1&JMPIF) (CALLS2 . CALLS2&JMPIF)
        (CALLSR . CALLSR&JMPIF)
      )
      ((EQ . JMPIFNOTEQ) (LOAD . LOAD&JMPIFNOT) (CALL1 . CALL1&JMPIFNOT)
        (CALL2 . CALL2&JMPIFNOT) (CALLS1 . CALLS1&JMPIFNOT)
        (CALLS2 . CALLS2&JMPIFNOT) (CALLSR . CALLSR&JMPIFNOT)
      )
      ((NIL . NIL&STORE) (T . T&STORE) (POP . POP&STORE)
        (CALLS1 . CALLS1&STORE) (CALLS2 . CALLS2&STORE) (CALLSR . CALLSR&STORE)
      )
      ((LOAD . LOAD&STOREC)) ((SKIP . SKIP&RET)) #.#'EQ
      #S(HASH-TABLE EQ (APPLY . 637.) (HANDLER-OPEN . 599.) (JMPHASHV . 566.)
         (JMPHASH . 566.) (JMPIFNOT . 550.) (JMPIF . 550.)
         (UNWIND-PROTECT-CLOSE . 545.) (UNBIND1 . 502.) (JSR . 488.)
         (JMPIFBOUNDP . 684.) (LOAD . 178.) (CONST . 127.) (PUSH-NIL . 37.)
         (NIL . 37.)
        )
      #Y(INSERT-COMBINED-LAPS-NILPUSHER-P
         #53Y(00 00 00 00 01 00 00 00 00 02 93 01 31 07 1E 23 9C 5A 77 AA 23 00
              0D 91 00 07 9D 5B 77 D9 8D 05 09 00 19 03 9D 5A 5B 5A 19 03 AC 9E
              5B 78 30 AF C5 19 03 19 02
             )
         PUSH-NIL (PUSH) 1.
        )
      1. (NIL&PUSH) PUSH-NIL SYMBOL-FUNCTION (PUSH) CONST&SYMBOL-FUNCTION&PUSH
      STORE CONST&SYMBOL-FUNCTION&STORE CONST&SYMBOL-FUNCTION EQ JMPIFEQTO
      JMPIFNOTEQTO
      #S(HASH-TABLE EQ (PUSH . 191.) (CONS . 104.) (CDR . 50.) (CAR . 8.)) PUSH
      LOAD&CAR&PUSH LOAD&CAR&STORE LOAD&CDR&PUSH LOAD&CDR&STORE LOAD&CONS&STORE
      (PUSH) LOAD&INC&PUSH LOAD&DEC&PUSH LOAD&INC&STORE LOAD&DEC&STORE
      LOAD&PUSH (NIL) UNBOUND->NIL (PUSH) JSR&PUSH JSR (UNBIND1) UNBIND
      (UNWIND-PROTECT-CLOSE)
      #Y(INSERT-COMBINED-LAPS-1
         #26Y(00 00 00 00 02 00 00 00 00 03 68 00 01 AC 68 00 02 70 99 AE AC AC
              30 69 19 05
             )
         NIL
        )
      2. SKIP (RET) APPLY&SKIP&RET (BARRIER)
  )  )
#Y(#:TOP-LEVEL-FORM-294
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   NUM-OPERAND-LENGTH REMOVE-OLD-DEFINITIONS
   #Y(NUM-OPERAND-LENGTH
      #31Y(00 00 00 00 01 00 00 00 00 02 AB D8 8F 01 2F 09 AB DA 8F 01 2F 06 C7
           19 02 C4 19 02 C6 19 02
          )
      128. 1. 32768. 2. 6.
  )  )
#Y(#:TOP-LEVEL-FORM-295
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   ASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
   #Y(ASSEMBLE-LAP
      #980Y(00 00 00 00 01 00 00 00 00 02 AB D8 92 01 81 91 93 01 9B 1F 2F 93
            00 6A 01 37 01 70 68 91 00 04 DA DB 2F 04 DD 9C 5E 5B 77 DE AB 24
            07 11 9E 5B 77 E0 93 05 E1 37 06 31 62 5E 14 8F 01 2F 0C 9C 25 0C
            81 43 AA AC 30 56 1A 81 4E E2 93 04 E1 37 06 31 62 5E 14 9F 5B 77
            81 02 35 02 CE F7 93 03 60 01 F9 1A 81 21 AA 9F 1A 80 5B 9B 1A 20
            84 04 DE 9F 5B 5A 79 9F 1A 80 E3 AA 9F 5B 77 6E 0D 32 02 35 1A 14
            AA 9F 5B 77 6E 0D 81 02 35 00 14 80 99 00 1A 80 F2 AA 31 99 F6 14
            9F 5B 1A 28 AA 9F 5B 77 6E 0D 81 02 35 00 14 9F 5B 5B 77 6E 0D 32
            02 35 1A 0D AA 9F 5B 77 6E 0D 81 02 35 00 14 31 99 F6 14 9F 5B 5B
            5B 5A 1A 25 AA 9F 5B 77 6E 0D 81 02 35 00 14 9F 5B 5B 77 6E 0D 81
            02 35 00 14 9F 5B 5B 5B 77 6E 0D 81 02 35 00 14 AE 30 9A 14 6E 0D
            81 02 35 00 1A 80 8E AA 9F 5B 77 6E 0D 81 02 35 00 84 04 C9 1A 05
            84 00 84 04 C9 14 9F 5B 5B 5A 79 9F 5B 1A 80 44 AA 9F 5B 77 6E 0D
            81 02 35 00 14 9F 5B 5B 77 6E 0D 81 02 35 00 84 04 C9 1A 20 AA 9F
            5B 77 6E 0D 81 02 35 00 14 80 99 00 84 04 C9 1A 0D AA 9F 5B 77 6E
            0D 81 02 35 00 84 04 C9 14 9F 5B 5B 5B 5A 79 9F 5B 5B 78 AB 30 AD
            16 01 1A 23 AA 9F 5B 77 6E 0D 81 02 35 00 9E 5B 78 92 00 11 84 05
            DE 9C 5A 79 AB AB 30 AD 16 01 82 00 91 00 6F 16 01 AE AB 81 02 35
            04 AF AC AC AF A2 5B 7B 03 30 AD 16 03 16 01 82 01 91 01 FE 6F 16
            02 62 D8 AD 62 1A 80 9D AA AD 30 56 1A 80 94 86 01 00 1F 74 AC 9C
            5B 77 81 02 35 02 9B 5A 25 0E 80 81 9B 5B 5B 78 9C 5A 25 0F 29 9B
            1A 27 9B 5B 1A 23 9B 5B 5B 1A 1E AC EC 30 AD B1 31 99 1A 80 50 93
            01 AA 23 06 70 16 01 1A 80 4E AC ED 30 AD 03 16 1A 38 00 14 62 AB
            8B 97 80 45 86 01 00 AF 93 01 81 02 35 05 94 00 70 52 B0 72 01 36
            E8 AB E9 8F 02 31 25 EA AB EB 8F 02 31 45 93 01 AA 23 06 4A AA 24
            14 12 AC ED 30 AD 03 17 14 B2 32 02 35 FD 7D 08 16 01 1A 02 16 01
            16 01 82 01 1A FF B6 16 03 82 01 AB 8C 97 FF 65 16 02 9C 16 02 1B
            FF 4F 00 2A 02 00 0B 00 00 C3 0B 00 01 9B 2A 01 AB 2B 18 01 0B 00
            00 AA 6C 19 01 AB 6C 1A 01 AF 62 1A 81 50 86 01 00 1F 81 48 67 05
            01 9C 5B 77 32 02 35 0B 05 01 9B 5B 5B 77 06 05 00 33 9B 5A 25 1B
            81 2E 9B 1A 80 54 9B 1A 15 9B 1A 80 D1 9B 5B 5B 5B 77 9F 1A 1C 9B
            5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 06 05 00 33 1A 81 07 9B 5B 5B
            5B 77 06 05 00 33 9B 5B 1A 24 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B
            77 9F 1A 10 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 06 05 00 33 9B
            5B 5B 5B 5B 5B 5A 1A 1D 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 9F
            33 9B 5B 5B 5B 5B 5B 77 9F 33 9B 5B 78 30 9A 14 9F 33 1A 80 AD 9B
            5B 5B 5B 77 9F 1A 08 9B 5B 5B 5B 77 06 05 00 33 9B 5B 1A 80 45 9B
            5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 9F 33 1A 31 9B 5B 5B 5B 77 9F
            33 9B 5B 5B 5B 5B 77 06 05 00 33 1A 1E 9B 5B 5B 5B 77 9F 33 9F 2A
            01 9C 5B 5B 5B 5B 5A 0B 00 00 AA 6C 1C 01 67 01 00 30 6B 16 01 9B
            5B 5B 5B 5B 5B 77 9E 33 1A 80 49 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B
            5B 77 AA 71 4A DE 1A 0F AC 9C 5E 14 70 52 AD 9D 5F EC AB 81 02 35
            00 AA AC 90 01 32 6B 16 03 1A 1D 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B
            78 62 1A 08 86 01 00 14 A0 33 82 01 AB 8C 97 74 16 02 82 01 AB 8C
            97 FE AB 16 05 67 00 00 31 4C 19 03
           )
      0. INSTRUCTION-CODES ASSEMBLE-LAP "ILLEGAL INSTRUCTION" COMPILER-ERROR
      #.INSTRUCTION-TABLE 1. K #.SHORT-CODE-OPSIZE #.INSTRUCTION-TABLE-K
      #.SHORT-CODE-OPS O
      #S(HASH-TABLE EQ (NLX . 290.) (NHL . 259.) (NBL . 240.) (NNL . 214.)
         (BL . 198.) (NL . 183.) (NNNN . 136.) (NBN . 114.) (NNN . 92.)
         (BN . 83.) (NB . 66.) (NN . 55.) (L . 44.) (B . 41.) (NC . 36.)
         (N . 36.) (K . 36.) (O . 325.)
        )
      NUM-OPERAND-LENGTH
      #S(HASH-TABLE EQ (NLX . 2.) (NHL . 2.) (NBL . 2.) (NNL . 2.) (BL . 2.)
         (NL . 2.) (L . 2.)
        )
      #S(HASH-TABLE EQ (NHL . 8.) (NBL . 8.) (NNL . 8.) (NLX . 4.) (BL . 4.)
         (NL . 4.) (L . 1.)
        )
      -64. 63. -16384. 16383. 2. 6. 5. 4.
      #Y(ASSEMBLE-LAP-NEW-BYTE
         #20Y(00 00 00 00 01 00 00 00 00 02 AB 07 00 01 5C 0C 00 01 19 02) NIL
        )
      #Y(ASSEMBLE-LAP-NUM-OPERAND
         #60Y(00 00 00 00 01 00 00 00 00 02 AB D9 8F 01 2F 23 AB DA 90 01 2F 20
              D9 DB DC 71 D7 AD 71 DA 72 02 35 07 00 01 33 DC DD 71 D7 AC 31 DA
              14 07 00 01 33 19 02 9C 1A 76 DE DF 2F 08 19 02
             )
         NIL 128. 32768. 7. 8. 0. ASSEMBLE-LAP "15 BIT" COMPILER-ERROR
        )
      #Y(ASSEMBLE-LAP-LABEL-OPERAND
         #121Y(00 00 00 00 01 00 00 00 00 02 68 01 02 93 02 32 02 35 0C 01 02
               94 01 70 52 68 01 02 72 01 36 9D 5A 25 01 80 51 DA C6 1A 80 40
               DC DA DD 71 D7 AC 71 DA 72 02 35 07 00 01 33 DD C6 1A 2D DC 07
               00 01 33 DB 07 00 01 33 DD DE 71 D7 AB 71 DA 07 00 01 33 DD DF
               71 D7 AB 71 DA 07 00 01 33 DD DD 71 D7 AB 71 DA 07 00 01 33 DD
               C6 14 71 D7 AB 71 DA 07 00 01 33 19 03 00 19 03
              )
         NIL #S(HASH-TABLE EQ (6. . 26.) (2. . 7.) (1. . 2.)) 7. 0. 128. 8. 24.
         16.
        )
      #S(HASH-TABLE EQ (NLX . 275.) (NC . 231.) (NHL . 189.) (NBL . 170.)
         (NNL . 153.) (BL . 139.) (NL . 131.) (NNNN . 96.) (NBN . 70.)
         (NNN . 54.) (BN . 41.) (NB . 21.) (NN . 13.) (L . 9.) (B . 6.)
         (N . 2.) (K . 2.) (O . 304.)
        )
      #Y(ASSEMBLE-LAP-1
         #29Y(00 00 00 00 02 00 00 00 00 03 68 00 01 AC 70 52 68 02 02 72 01 36
              AE AC AC 30 69 19 05
             )
         NIL
  )  )  )
#Y(#:TOP-LEVEL-FORM-296
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   DISASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-LAP
      #460Y(00 00 00 00 02 00 00 00 00 03 00 2A 01 7E 03 00 00 9B 2A 02 62 C3
            0B 01 00 62 00 0B 02 01 9D 2A 01 AD 2B 01 01 0B 00 00 9B 2A 01 AB
            6C 02 01 AC 2B 03 01 0B 01 00 06 06 00 1C 81 57 06 05 00 F9 06 02
            00 73 AA DC 8F 01 32 0D E0 9C 5E 14 93 00 9C 5B 5A 25 09 81 2B AA
            DD 63 37 05 C9 F7 71 62 AB DD 9D 5E 14 72 01 36 DF 9D 5E 14 9C 1A
            1B AA 60 01 16 02 1A 81 0E AA 9F 33 1A 0E AA 06 06 00 33 1A 07 AA
            37 02 06 07 00 33 14 60 02 16 02 1A 80 F3 AA 9F 1A 0C AA 9F 73 06
            07 00 1A 36 AA 06 06 00 73 A0 1A 2E AA 9F 73 A0 1A 06 AA 9F 73 06
            07 00 73 A1 1A 38 AA 9F 73 A0 73 A1 73 A2 73 60 05 16 02 1A 80 BF
            AA 9F 1A 04 AA 06 06 00 73 37 02 06 08 00 73 60 03 16 02 1A 80 A9
            AA 9F 73 A0 1A 06 AA 9F 73 06 07 00 73 37 02 06 09 00 73 60 04 16
            02 1A 80 8F AA B8 30 99 1A 0D 9F 2A 01 9F 73 AC 23 0A 71 93 0D 9C
            5E 14 00 0B 02 00 AC 6C 0B 01 AB 30 6B AD AC 37 02 06 0B 00 73 06
            05 00 61 03 16 05 1A 80 5E 9E 73 AA B7 30 99 77 AA 71 4A 62 E4 1A
            11 62 AE 9D 5E 14 06 0B 00 73 83 01 E5 AB 81 02 35 00 AA AD 90 01
            32 69 16 01 AE AE AC 31 4C 61 02 16 06 1A 2C 9E 73 AA B7 70 99 71
            4A 62 D8 1A 0A 37 02 06 0A 00 73 83 01 84 00 AA AD 90 01 32 70 16
            01 AD AD AC 31 4C 61 02 16 05 1A 03 00 16 02 F6 AE 9C 79 83 05 16
            01 06 06 00 1B FE A9 16 03 62 92 00 2D 06 03 01 1C 28 9B 5A 77 06
            04 01 5A 77 90 01 2D 1C 06 03 01 77 83 00 06 03 01 5B 0B 03 01 92
            02 0F 94 02 AD AC 7F AE 01 69 02 91 00 53 91 02 71 15 19 07
           )
      0.
      #Y(DISASSEMBLE-LAP-NEXT-BYTE
         #32Y(00 00 00 00 00 00 00 00 00 01 68 00 01 31 99 0C 00 01 07 01 01 77
              07 01 01 5B 0C 01 01 15 19 01
             )
         NIL
        )
      #Y(DISASSEMBLE-LAP-NUM-OPERAND
         #41Y(00 00 00 00 00 00 00 00 00 01 07 00 01 73 AA D9 8F 01 2F 12 DA DB
              AC 72 02 35 72 02 37 07 00 01 73 32 02 35 19 02 15 19 01
             )
         NIL 128. 256. -128.
        )
      #Y(DISASSEMBLE-LAP-LABEL-OPERAND
         #181Y(00 00 00 00 00 00 02 00 00 0C 3A 02 80 6D 07 00 01 73 AA D9 8F
               01 2F 80 4E DB AB 81 02 35 00 14 DA 8F 01 2F 06 DB AB 81 02 35
               00 DC AB 72 02 37 07 00 01 73 81 02 35 00 14 8E 94 3B DC DC DC
               07 00 01 73 72 02 37 07 00 01 73 72 02 35 72 02 37 07 00 01 73
               72 02 35 72 02 37 07 00 01 33 14 32 02 35 1A 14 9B 1A 11 AA DA
               8F 01 2F 77 DB 9C 1A 6D 14 AB 30 AF 1A 39 9B 16 01 F8 3A 01 08
               68 01 01 AD 81 02 35 01 62 68 01 02 92 00 17 AD 9C 5A 77 8F 01
               30 0F AD 9C 5A 77 8F 01 2D 13 9B F7 5B F6 91 00 69 AD C8 73 83
               00 91 01 45 9B 0C 01 02 9B 5A 5B 19 05
              )
         NIL 128. 64. -128. 256.
         #Y(DISASSEMBLE-LAP-PC->LABEL-A
            #24Y(00 00 00 00 01 00 00 00 00 02 AB D8 D9 AE 70 8B 72 02 25 30 CF
                 5C 19 02
                )
            STRING "L"
        )  )
      #.SHORT-CODE-BASE #.SHORT-CODE-OPS #.#'>= #.INSTRUCTION-TABLE-K
      #.INSTRUCTION-TABLE
      #S(HASH-TABLE EQ (NLX . 260.) (NC . 210.) (NHL . 167.) (NBL . 141.)
         (NNL . 135.) (BL . 117.) (NL . 113.) (NNNN . 97.) (NBN . 87.)
         (NNN . 81.) (BN . 73.) (NB . 65.) (NN . 61.) (L . 46.) (B . 39.)
         (N . 34.) (K . 34.) (O . 26.)
        )
      JMPHASH
      #Y(DISASSEMBLE-LAP-1
         #26Y(00 00 00 00 02 00 00 00 00 03 AB 37 01 07 01 01 73 07 00 01 5C 0C
              00 01 19 03
             )
         NIL
        )
      1. 2.
  )  )
#Y(#:TOP-LEVEL-FORM-297
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   CREATE-FUN-OBJ REMOVE-OLD-DEFINITIONS
   #Y(CREATE-FUN-OBJ
      #454Y(02 00 00 00 03 00 00 00 00 04 D8 D9 AF DA 71 32 DB C7 44 93 05 DD
            31 B6 41 02 AA AC 3F 02 16 02 40 05 00 00 04 78 DD 31 B6 41 02 AA
            AC 3F 02 16 02 40 D9 66 00 00 06 DE 71 32 DD 31 B6 41 02 AA AC 3F
            02 16 02 40 D9 66 00 00 06 DF 71 32 DD 31 B6 41 02 AA AC 3F 02 16
            02 40 D9 66 00 00 06 E0 8D 32 80 7E CC 14 D9 66 00 00 06 E2 8D 32
            80 76 CC 14 D9 66 00 00 06 E4 8D 32 80 71 CC 14 32 03 35 40 D9 66
            00 00 06 DE 71 32 D9 66 00 00 06 DF 71 32 D9 66 00 00 06 E0 71 32
            D9 66 00 00 06 E4 71 32 91 01 0E 91 00 0B AD AD 72 02 35 E8 8F 01
            2F 80 4C 92 01 0D 91 00 0A AC 8E 94 06 AD EA 8F 01 2F 3F 91 01 80
            B1 92 00 80 AD AD AD 72 02 35 EA 90 01 2F 80 A2 D7 14 9E 5E 14 AE
            32 02 35 1A 80 97 C5 1A FF 7F CE 1A FF 87 D2 1A 0B E5 D9 66 00 00
            06 E6 8D 32 73 CC 14 32 02 35 1A FF 7E D4 1A 55 D6 1A 55 03 15 44
            D9 66 01 00 06 EE 71 32 71 4A DD 31 B6 41 02 AA AC 3F 02 16 02 40
            D9 66 01 00 06 EF 71 32 DD 31 B6 41 02 AA AC 3F 02 16 02 40 45 1A
            80 51 62 D9 B7 F2 71 32 D9 B8 F3 71 32 1A 1D 14 31 3C 1A 0F 16 03
            1A 19 93 01 9C 1F 77 93 01 91 00 6D 9C 14 83 04 16 02 82 01 82 00
            9C 20 69 16 02 AA 30 A8 16 01 1A 3C AB AB F4 71 2E 7A 01 32 02 23
            1A 3C CC 16 03 F6 D9 66 00 00 06 E4 8D 32 FF 7F 3D 40 66 00 00 05
            45 14 F0 D9 B3 EF 71 32 37 01 70 A2 AA D9 B5 EE 71 32 0E 19 1B FF
            93 D9 B6 F2 31 32 14 72 03 23 D9 B5 E2 8D 32 FF B9 9B 16 01 F6 6D
            06 1D D9 AF 64 1E AD 31 33 16 01 9E 19 04
           )
      :NAME FNODE 1. :CODEVEC #.#'LIST* 256. 10. 11. 12. 0. 20. 16. 13. 128.
      15. 64. 6. #(1. 7. 12. 16. 19. 21.) 5. 22. #(27. 32. 36. 39. 41.)
      #.#'VALUES 14. 9. :CONSTS *COMPILING-FROM-FILE* 17. 18. SIMPLE-VECTOR
      MAKE-CLOSURE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-298
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SIGNATURE
   REMOVE-OLD-DEFINITIONS
   #Y(SIGNATURE
      #142Y(00 00 00 00 01 00 00 00 00 02 AB 71 39 AC 71 38 82 00 5B F6 5B F6
            5B F6 77 82 01 D8 93 02 82 03 72 02 37 72 02 35 93 01 82 02 D8 93
            03 82 04 72 02 37 72 02 35 93 02 82 03 D9 AB 71 D3 82 04 AD AD DA
            AE 71 D3 AD 91 04 13 00 14 DD B1 71 D3 B4 B6 3F 08 19 08 93 0B DC
            31 2E 1A 24 93 08 82 09 D8 93 0A 82 0B 72 02 37 72 02 35 93 09 82
            0A D8 93 0B 82 0C 72 02 37 72 02 35 DB B2 8D D3 56 A6 14 AB AC AE
            72 02 35 31 48 16 02 1A FF BC
           )
      256. 7. 0. 4. LIST 6.
  )  )
#Y(#:TOP-LEVEL-FORM-299
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) PASS3
   REMOVE-OLD-DEFINITIONS
   #Y(PASS3
      #61Y(00 00 00 00 00 00 00 00 00 01 6A 00 62 1A 27 86 01 00 77 D9 AB DA 80
           32 00 9C 5B 77 AB DA AC 72 02 35 AD DA AE 72 02 35 71 2F D9 AB DA 80
           32 00 31 30 16 02 82 01 AB 8C 97 55 00 19 03
          )
      *FNODE-FIXUP-TABLE* FNODE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-300
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   COMPILE-LAMBDABODY REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-LAMBDABODY
      #37Y(00 00 00 00 02 00 00 00 00 03 AC AC 6F 00 0E 01 1B 10 00 10 02 AD 2E
           03 2D 04 11 DD AB DE 31 32 19 04 00 19 04
          )
      C-LAMBDABODY *NO-CODE* *FNODE-FIXUP-TABLE* PASS2 PASS3 FNODE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-301
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   COMPILE-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-LAMBDA
      #89Y(00 00 00 00 07 00 00 00 00 00 02 10 00 00 10 01 00 10 02 0E 03 10 04
           00 10 05 00 10 06 00 10 07 04 19 10 08 04 1B 10 09 04 1D 10 0A 04 23
           10 0B 00 10 0C 04 25 10 0D D1 10 0F D1 10 10 00 10 11 65 37 65 37 6F
           12 6A 0F 8E 94 05 15 12 10 19 08 65 38 EB 2F 12 16 01 1A 73
          )
      *COMPILING* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *ERROR-OUTPUT*
      *C-ERROR-OUTPUT* *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC*
      *FENV* *BENV* *GENV* *VENV* *VENVC* *DENV* 0. *ERROR-COUNT*
      *WARNING-COUNT* *NO-CODE* COMPILE-LAMBDABODY (NIL NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-302
   #30Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 C3 0B 00 00 D9 2E 02 D9 AB 6C 03
        01 31 84 C4 19 02
       )
   0. COMPILE-FORM REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-FORM
      #36Y(00 00 00 00 06 00 00 00 00 00 D9 68 00 01 31 99 0C 00 01 14 6F 02 62
           B2 7A 02 B1 B1 B1 B1 B1 2C 07 03 19 07
          )
      NIL #:COMPILED-FORM SYMBOL-SUFFIX COMPILE-LAMBDA
  )  )
#Y(#:TOP-LEVEL-FORM-303
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) COMPILE
   REMOVE-OLD-DEFINITIONS
   #Y(COMPILE
      #456Y(00 00 00 00 01 00 01 00 00 08 3B 01 14 3C 02 01 03 B0 88 00 80 4F
            B0 6E 06 92 04 80 8E 92 07 0E AA DF 37 01 80 86 04 1C 05 9F 20 3F
            7D 02 B0 8D 0C 80 51 92 07 12 E9 EA EB B4 7A 02 7A 02 EB B3 7A 02
            7A 03 0E 14 5C F7 A1 1F 06 93 06 23 1E 80 EB B0 8D 0D 80 E6 D9 64
            1F 64 20 03 21 14 6D 03 05 B2 32 01 1F D9 DA DB C7 1A 72 E0 E1 E2
            6D 03 05 E3 B3 2C 03 0C B1 2E 0D 1A FF B2 AA DF B2 31 8A 1A 80 51
            E6 E7 E8 6D 03 05 B1 2F 0C 92 07 80 44 91 02 68 AA B1 31 84 1A 3B
            ED EE B3 EF F0 F1 6D 03 05 B5 32 03 1F 7D 02 1A 10 AA 8C 54 6B AA
            DF 37 01 80 86 06 1B 6F 9B 5D FC A1 1F 09 93 06 24 1A 04 7D 03 82
            06 B0 8E 0C FF 7C F3 F4 F5 6D 03 05 B2 2F 0C A2 19 08 B9 64 24 31
            2F 1A 80 6D BA 64 25 31 2F 1A 80 6C BB 64 26 31 2F 1A 80 6B BC 64
            27 31 2F 1A 80 6A BE 64 28 31 2F 1A 80 6B 65 44 64 3A 31 2F 1A 80
            A8 00 1A 80 B5 F2 83 00 92 42 1C 65 40 DF AC 31 8A 92 41 1B 65 40
            64 3C 65 43 31 8A 04 47 1A 80 99 91 43 61 91 42 64 65 40 AB 31 84
            91 41 65 04 47 1A 80 86 63 64 22 64 22 01 02 6A 23 01 03 B9 8D 0D
            FF 8C 00 14 BA 8D 0D FF 8D 00 14 BB 8D 0D FF 8E 00 14 BC 8D 0D FF
            8F 00 14 62 BE 8D 0D FF 8F 0E 29 10 2A 00 10 2B 04 13 10 2C 04 15
            10 2D 04 17 10 2E 04 19 10 2F 04 1B 10 30 04 1D 10 31 04 1F 10 32
            04 21 10 33 04 23 10 34 04 25 10 35 04 27 10 36 04 29 10 37 04 2B
            10 38 04 2D 10 39 65 44 8D 0D FF 52 04 44 5B 14 65 46 AB 6F 3B 6A
            2D 8E 94 FF 4C 91 47 FF 68 9B 16 02 12 10 19 16
           )
      FUNCTION-NAME-P ERROR
      "Name of function to be compiled must be a symbol, not ~S"
      "Name einer zu compilierenden Funktion mu▀ ein Symbol sein, nicht: ~S"
      "Le nom d'une fonction α compiler doit Ωtre un symbole et non ~S"
      LANGUAGE GET-FUNNAME-SYMBOL TRACED-DEFINITION
      "~S: redefining ~S; it was traced!"
      "~S: ~S war getraced und wird umdefiniert!"
      "~S: ~S est redΘfinie, alors qu'elle Θtait tracΘe!" COMPILE WARN UNTRACE2
      "~S is already compiled." "~S ist schon compiliert."
      "~S est dΘjα compilΘe." SETF FDEFINITION QUOTE *TOPLEVEL-ENVIRONMENT*
      UNDEFINED-FUNCTION :NAME "Undefined function ~S"
      "Funktion ~S ist undefiniert." "Fonction non dΘfinie ~S." MACRO
      "~S is already compiled." "~S ist schon compiliert."
      "~S est dΘjα compilΘe." LAMBDA
      "Not a lambda expression nor a function: ~S"
      "Das ist weder ein Lambda-Ausdruck noch ein funktionales Objekt:~%~S"
      "Ni expression lambda ni fonction : ~S" 0. *ERROR-OUTPUT* 5. 6. 7. 4. 8.
      *TOPLEVEL-DENV* *DENV* *NO-CODE* *COMPILING* *ERROR-COUNT*
      *WARNING-COUNT* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *C-ERROR-OUTPUT*
      *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC* *FENV* *BENV* *GENV*
      *VENV* *VENVC* 1. COMPILE-LAMBDABODY DEFINITION
  )  )
#Y(#:TOP-LEVEL-FORM-304 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01)
   (SPECIAL *TOPLEVEL-FOR-VALUE*) *TOPLEVEL-FOR-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-305
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   COMPILE-TOPLEVEL-FORM REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-TOPLEVEL-FORM
      #318Y(02 00 01 00 01 00 01 00 00 08 3A 01 02 0E 00 10 00 C4 4F 81 26 A3
            1F 80 F2 93 08 AA 8E 09 80 B2 AA 2E 04 41 03 92 02 3C AC 24 0F 80
            9B B6 6A 02 6A 0E 72 02 00 70 5D 37 01 27 4F 16 07 18 02 01 1A 80
            F8 AA 37 01 27 42 16 05 18 02 01 1A 80 EB B2 6A 02 2F 03 41 02 91
            01 69 16 02 0E 09 1C 80 B3 1A 80 B4 9E 25 05 80 5A 00 1A 0F B6 DE
            2F 07 94 0C 92 00 74 9B 5B 1B 0C 9B 5A 14 37 01 27 FF 89 16 01 1A
            35 E0 AB 92 00 1D 93 00 82 01 0E 09 1C 02 9C 58 10 09 AD 6A 00 84
            07 14 6F 0A 27 FF 69 11 16 01 91 00 63 16 03 1A 0F A7 10 0B B0 6A
            0C 37 01 70 68 98 0D 35 01 11 00 16 07 18 02 01 1A 80 78 AD 8B 5B
            FF 65 16 04 0E 09 1C 80 45 1A 80 46 16 01 0E 09 1C 3C 1A 3E 00 16
            03 18 02 01 1A 80 58 00 1A 3E B5 6A 14 2F 15 0E 16 1C 80 44 14 30
            90 B5 37 0C 7D 02 F6 6A 16 30 85 0E 11 1C 37 EF 6A 11 31 4C 79 2E
            18 1A 2E B2 8D 09 FF 40 0E 09 1B 04 B2 87 10 42 00 10 11 6A 00 62
            B7 0E 09 1B 40 D5 7B 02 2F 13 09 0B 0E 14 1B FF B7 0E 16 1B FF BC
            0E 11 1B 49 00 11 50 11 19 03
           )
      *TOPLEVEL-NAME* C-ERROR *VENV* VENV-SEARCH-MACRO FENV-SEARCH
      #S(HASH-TABLE EQ (SYMBOL-MACROLET . 68.) (MACROLET . 68.)
         (COMPILER-LET . 68.) (EVAL-WHEN . 68.) (LOCALLY . 68.) (PROGN . 5.)
        )
      1. TEST-LIST 0. *TOPLEVEL-FOR-VALUE* SYMBOL-SUFFIX *FORM* C-FORM-TABLE
      COMPILE-TOPLEVEL-FORM *FENV* MACRO C-CONSTANTP *PACKAGE-TASKS* ((VALUES))
      COMPILE-LAMBDABODY *C-LISTING-OUTPUT* DISASSEMBLE-CLOSURES
      *FASOUTPUT-STREAM* PROGN C-EVAL-WHEN-COMPILE
  )  )
#Y(#:TOP-LEVEL-FORM-306
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   PREPARE-COUTPUT-FILE REMOVE-OLD-DEFINITIONS
   #Y(PREPARE-COUTPUT-FILE
      #41Y(00 00 00 00 00 00 00 00 00 01 0E 00 1C 18 0E 01 1C 14 0E 02 1B 0D 6A
           01 DB 37 03 30 FC 0F 02 14 DC 2F 05 02 19 01 00 19 01
          )
      *COMPILING-FROM-FILE* *COUTPUT-FILE* *COUTPUT-STREAM* :OUTPUT
      #Y(PREPARE-COUTPUT-FILE-1
         #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
         "#include \"clisp.h\"

"
        )
      FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-307
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   FINALIZE-COUTPUT-FILE REMOVE-OLD-DEFINITIONS
   #Y(FINALIZE-COUTPUT-FILE #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01))
  )
#Y(#:TOP-LEVEL-FORM-308
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   COMPILE-FILE REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-FILE
      #883Y(08 00 03 00 01 00 00 00 80 1C 05 00 00 00 3A 05 02 7D 05 3C 04 3A
            03 02 0E 05 10 05 3A 05 02 0E 06 10 06 3A 07 02 0E 07 10 07 01 02
            00 10 08 01 02 C0 6A 09 2F 0A 5A 1B 0A C0 E3 37 03 70 F4 37 02 30
            F4 09 16 92 15 05 14 8E 19 81 0D 92 14 12 14 8D 19 0E BE 02 21 81
            24 BE 37 03 30 F4 09 14 7D 00 C0 E8 37 03 70 FC 52 82 F4 D4 44 91
            04 81 15 C2 8D 19 81 19 00 14 52 82 BD 65 1D 65 1E 70 F8 01 02 91
            0C 81 0D 65 20 8D 19 81 11 00 14 91 0D 81 10 00 10 13 00 10 14 00
            10 15 62 A9 10 16 04 10 10 17 04 12 10 18 04 14 10 19 04 16 10 1A
            52 82 39 91 22 80 F5 0E 22 1B 19 00 0F 23 0F 24 0F 25 0F 26 0F 27
            0F 28 0F 29 0F 2A 0F 2B 0F 2C 0F 2D 7D 2D 63 63 6A 2E 6A 2F 65 26
            91 27 80 EB 0E 30 10 31 00 10 32 00 10 33 00 10 34 00 10 35 00 10
            36 00 10 37 0E 38 10 39 03 3A 10 3B 03 3A 10 3C 0E 1A 58 1C 03 04
            45 58 10 3D 02 10 3E 64 3A 04 29 10 22 04 2B 10 3F 04 2D 10 2E 04
            2F 10 2F 04 31 10 40 64 41 64 42 64 43 6D 03 1E 65 77 2F 44 0E 1A
            1C 80 E3 0E 45 10 2E 64 46 64 47 2D 46 14 7A 02 7A 02 37 0C 7D 00
            6A 1A 30 85 11 1A 80 C8 E4 C1 37 02 30 F4 1A 09 BF 02 21 74 BF 37
            03 30 F4 09 15 E5 C0 37 02 7F F4 05 E6 C0 37 02 30 F4 0F 08 7D 01
            92 14 FE E8 1A FE D3 E7 C1 37 02 30 F4 1A FE D8 C2 EA 37 03 30 FC
            1A FE E8 04 18 1A FE E3 65 20 EA 37 03 30 FC 1A FE F0 04 20 1A FE
            EB BB EA 37 03 30 FC 1A FE E8 14 F3 F4 F5 6D 03 1E 65 3F 2D 1F 14
            2D 20 42 14 70 C5 70 C6 2C 07 21 0E 22 1C FE F3 1A FF 09 6A 30 65
            28 32 02 2B 1A FF 0D 64 64 64 65 64 66 6D 03 1E AC 71 4C 2F 44 92
            00 80 CE 64 67 64 68 64 69 6D 03 1E AB 71 4C 2F 44 16 02 1A 80 BD
            0E 07 1C 10 63 64 4A AC 64 4B 6A 4C 72 02 35 6F 4D 2C 03 21 AA 64
            4E 84 12 14 6F 4F 2F 50 16 01 63 65 60 62 64 48 37 01 30 7F 65 5F
            2E 49 0F 18 65 5F 62 64 48 37 01 70 79 65 60 2E 49 0F 19 AA 64 48
            8E 04 FF BA 16 01 2D 51 64 52 64 53 64 54 6D 03 1E 65 77 2F 44 64
            55 64 56 64 57 6D 03 1E 6A 3B 6A 3C 62 6A 3C 03 58 59 14 62 6D 03
            1E 2C 04 44 92 66 80 47 0E 23 1C 0F 64 59 64 5A 64 5B 6D 03 1E 6A
            23 71 4C 2F 44 6A 28 6A 27 64 5C 64 5D 2C 04 5E 0F 28 1C 0F 64 5F
            64 60 64 61 6D 03 1E 6A 28 71 4C 2F 44 6A 25 6A 24 6F 62 6A 25 6A
            24 6F 63 91 01 FF 24 91 00 FF 32 16 02 64 6A 2E 44 6A 3B 80 94 4A
            12 05 16 01 12 0C 16 05 53 05 00 00 26 1C 80 56 1A 20 14 37 01 31
            7F 05 00 00 0F 1C 34 1A 80 46 6A 08 30 FA 05 00 00 0F 1C 27 1A 3A
            05 00 00 26 1C 34 6A 1A 30 90 6A 1A 37 01 31 7F 6A 13 37 01 31 7F
            0E 14 1B 4C 6A 08 8B F9 55 05 00 00 0F 1B 15 66 00 00 3A 30 FA 66
            00 00 2A 30 FA 6A 08 8C F9 04 6A 08 30 FA 54 12 05 16 01 12 03 16
            05 53 05 00 00 05 1C 10 1A 06 05 00 00 05 1C 08 66 00 00 00 37 01
            31 7F 54 16 01 40 05 00 00 02 1C 05 14 37 01 31 7F 45 53 05 00 00
            00 1C 0C 1A 06 05 00 00 00 1C 04 14 63 31 7F 54 16 03 11 16 02 12
            03 19 07
           )
      :OUTPUT-FILE :LISTING :WARNINGS :VERBOSE :PRINT *COMPILE-WARNINGS*
      *COMPILE-VERBOSE* *COMPILE-PRINT* *COUTPUT-FILE* *SOURCE-FILE-TYPES*
      SEARCH-FILE
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "lsp" :VERSION NIL
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "fas" :VERSION NIL
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "lib" :VERSION NIL
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "c" :VERSION NIL
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "lis" :VERSION NIL
        )
      :INPUT-IMMUTABLE #.#'VALUES :OUTPUT *LIBOUTPUT-STREAM* *COUTPUT-STREAM*
      *FFI-MODULE* *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME*
      *COMPILE-FILE-LINENO1* *COMPILE-FILE-LINENO2* *FASOUTPUT-STREAM*
      "~&Listing of compilation of file ~A~%on ~@? by ~A, version ~A"
      "~&Listing der Compilation von Datei ~A~%am ~@? durch ~A in der Version ~A"
      "~&Listage de la compilation du fichier ~A~%le ~@? par ~A, version ~A"
      LANGUAGE DATE-FORMAT GET-DECODED-TIME FORMAT *COMPILING*
      *FUNCTIONS-WITH-ERRORS* *KNOWN-SPECIAL-VARS* *UNKNOWN-FREE-VARS*
      *CONSTANT-SPECIAL-VARS* *KNOWN-FUNCTIONS* *UNKNOWN-FUNCTIONS*
      *INLINE-FUNCTIONS* *NOTINLINE-FUNCTIONS* *INLINE-DEFINITIONS*
      *USER-DECLARATION-TYPES* *COMPILED-MODULES* *PACKAGE* *READTABLE*
      *ERROR-OUTPUT* *C-ERROR-OUTPUT* *FUNC* *FENV* *BENV* *GENV* *VENV*
      *VENVC* *TOPLEVEL-DENV* *DENV* 0. *ERROR-COUNT* *WARNING-COUNT* *NO-CODE*
      *TOPLEVEL-FOR-VALUE* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT*
      "~%Compiling file ~A ..." "~%Datei ~A wird compiliert..."
      "~%Compilation du fichier ~A..." C-COMMENT *KEYWORD-PACKAGE* VERSION
      QUOTE "EOF" LINE-NUMBER
      #Y(LISP::COMPILE-FILE-1
         #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
              04
             )
         "
; "
        )
      -2. *PRIN-LINELENGTH* WRITE-TO-SHORT-STRING #:TOP-LEVEL-FORM
      SYMBOL-SUFFIX COMPILE-TOPLEVEL-FORM FINALIZE-COUTPUT-FILE
      "~&~%Compilation of file ~A is finished."
      "~&~%Compilation von Datei ~A beendet."
      "~&~%Compilation du fichier ~A terminΘe." "~%~D error~:P, ~D warning~:P"
      "~%~D Error~:P, ~D Warnung~:[en~;~]"
      "~%~D erreur~:P, ~D avertissement~:P" 1.
      "~%There were errors in the following functions:~%~{~<~%~:; ~S~>~^~}"
      "~%Es gab Errors in den folgenden Funktionen:~%~{~<~%~:; ~S~>~^~}"
      "~%Il y a des erreurs dans les fonctions :~%~{~<~%~:; ~S~>~^~}" :TEST
      #.#'EQUAL NSET-DIFFERENCE
      "~%The following functions were used but not defined:~%~{~<~%~:; ~S~>~^~}"
      "~%Folgende Funktionen wurden verwendet, aber nicht definiert:~%~{~<~%~:; ~S~>~^~}"
      "~%Les fonctions suivantes sont utilisΘes mais non dΘfinies :~%~{~<~%~:; ~S~>~^~}"
      SET-DIFFERENCE INTERSECTION
      "~%The following special variables were not defined:~%~{~<~%~:; ~S~>~^~}"
      "~%Folgende Special-Variablen wurden nicht definiert:~%~{~<~%~:; ~S~>~^~}"
      "~%Les variables utilisΘes comme SPECIAL ne sont pas dΘfinies :~%~{~<~%~:; ~S~>~^~}"
      "~%The following special variables were defined too late:~%~{~<~%~:; ~S~>~^~}"
      "~%Folgende Special-Variablen wurden zu spΣt definiert:~%~{~<~%~:; ~S~>~^~}"
      "~%Les variables dΘclarΘes SPECIAL sont dΘfinies trop tard :~%~{~<~%~:; ~S~>~^~}"
      "~%"
  )  )
#Y(#:TOP-LEVEL-FORM-309
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   COMPILE-FILE-PATHNAME REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-FILE-PATHNAME
      #64Y(00 00 00 00 01 00 00 00 80 1C 05 00 00 00 3A 05 02 7D 05 B0 6A 05 2F
           06 5A 1B 0A B0 DF 37 03 70 F4 37 02 30 F4 FC 92 05 0E 14 8D 19 0A AF
           02 21 09 AF 37 03 7F F4 05 A0 19 07 E0 B1 37 02 1A 74
          )
      :OUTPUT-FILE :LISTING :WARNINGS :VERBOSE :PRINT *SOURCE-FILE-TYPES*
      SEARCH-FILE
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "lsp" :VERSION NIL
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "fas" :VERSION NIL
  )  )  )
#Y(#:TOP-LEVEL-FORM-310
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   DISASSEMBLE-CLOSURES REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-CLOSURES
      #50Y(00 00 00 00 02 00 00 00 00 03 00 2A 01 00 0B 00 00 AA 6C 00 01 AE 9C
           33 16 01 67 00 00 71 4C 62 1A 09 86 01 00 14 AF 2F 01 82 01 AB 8C 97
           73 00 19 06
          )
      #Y(DISASSEMBLE-CLOSURES-MARK
         #56Y(00 00 00 00 01 00 00 00 00 02 AB 07 00 01 5C 0C 00 01 AB 71 39 62
              1A 19 86 01 00 14 8E 0D 10 AA 8E 0C 0C AA 68 00 01 37 03 8B B8 03
              AA 27 5B 82 01 AB 8C 97 63 00 19 04
             )
         NIL
        )
      DISASSEMBLE-CLOSURE
  )  )
#Y(#:TOP-LEVEL-FORM-311
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   DISASSEMBLE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-CLOSURE
      #510Y(00 00 00 00 01 00 01 00 00 08 3A 01 03 0E 00 F7 AB 30 90 AB 30 90
            D9 DA DB 6D 03 04 AC 37 02 30 8E AC 71 37 AC 30 86 AC 2E 05 41 08
            AA DE 92 01 1F B5 30 90 DF B6 37 02 30 8E AA B6 30 86 E0 B6 37 02
            30 8E 93 01 B6 30 86 82 01 84 00 91 01 61 16 02 B3 30 90 B1 B4 30
            86 E1 E2 E3 6D 03 04 B4 37 02 30 8E B3 30 90 B0 B4 30 86 E4 E5 E6
            6D 03 04 B4 37 02 30 8E B3 30 90 91 05 25 EA EB D7 14 6D 03 04 B4
            37 02 30 8E 91 04 1B B3 30 90 64 26 64 27 64 28 6D 03 04 B4 37 02
            30 8E 62 AB 1A 80 9D E7 E8 D4 1A 59 AD 71 4A B4 30 90 AA B5 30 86
            ED EE EF 2C 03 04 25 18 3E 03 19 1A 34 F4 B5 37 02 30 8E 03 1D 1A
            2A F2 B5 37 02 30 8E AA 24 1B 6C 03 1D 1A 1C 64 1F B5 37 02 30 8E
            03 20 1A 11 03 21 1A 25 64 1E B5 37 02 30 8E AA 24 1B 66 03 20 14
            B5 37 02 30 8E AE AA 8B 97 2B 93 00 82 01 B6 30 86 AA 8B 97 59 03
            22 14 B6 37 02 30 8E 1A 67 B4 30 90 64 23 64 24 64 25 6D 03 04 B5
            37 02 30 8E 16 01 1A FF 75 16 01 91 03 65 16 01 1A FF 6B 93 00 AA
            64 29 6F 2A 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A8 00 AC AC 6F
            2B 92 00 80 A8 9B 5A 77 9C 5A 78 B7 30 90 AB B8 30 86 DE 64 2C B9
            70 95 72 01 36 1A 3D 9B 5A 25 2E 2E 63 9C 5B 5A 1A 10 63 64 2F 9D
            1A 05 63 6A 30 9D 5B 5B 77 32 02 35 14 30 00 1A 0E 64 31 9C 5B 1A
            03 64 31 9C 5B 77 AF 30 99 14 3F 02 1A 1B 00 1A 18 64 2D BA 30 8D
            84 01 AB AB 90 01 32 73 16 02 AA B8 30 89 9B 20 FF B3 00 41 02 92
            01 35 DE F3 64 32 BC 70 95 72 01 36 72 01 33 1A 0F AA BA 37 02 30
            8E 1A 1E 64 2D BC 30 8D 84 01 AB AB 90 01 32 73 16 02 64 33 BA 37
            02 30 8E AB 23 31 5E AA BA 30 86 16 04 82 00 91 00 FF 58 16 02 B3
            30 90 19 0B
           )
      *STANDARD-OUTPUT* "Disassembly of function " "Disassembly von Funktion "
      "DΘassemblage de la fonction " LANGUAGE SIGNATURE 0. "(CONST " ") = "
      " required arguments" " notwendige Argumente" " arguments nΘcessaires"
      " optional arguments" " optionale Argumente" " arguments facultatifs"
      "Rest parameter" "Rest-Parameter vorhanden" "ParamΦtre &REST"
      "No rest parameter" "Kein Rest-Parameter" "Pas de paramΦtre &REST"
      ENGLISH DEUTSCH FRANCAIS
      #S(HASH-TABLE EQ (FRANCAIS . 44.) (ENGLISH . 15.) (DEUTSCH . 1.))
      " Keyword-Parameter: " " keyword parameter" 1. "s" ": " " mot" "s" "-clΘ"
      "." ", " "Other keywords are allowed." "Andere Keywords sind zugelassen."
      "D'autres mots-clΘ sont permis." "No keyword parameters"
      "Keine Keyword-Parameter" "Pas de mot-clΘ" 35. WRITE-TO-SHORT-STRING
      DISASSEMBLE-LAP 6. #\Space
      #S(HASH-TABLE EQ (HANDLER-OPEN . 34.) (TAGBODY-OPEN . 34.)
         (CONST&SYMBOL-FUNCTION&STORE . 34.) (COPY-CLOSURE . 34.)
         (COPY-CLOSURE&PUSH . 34.) (CONST&SYMBOL-FUNCTION . 34.)
         (CONST&SYMBOL-FUNCTION&PUSH . 34.) (CONST&STORE . 34.) (BIND . 34.)
         (GETVALUE&PUSH . 34.) (GETVALUE . 34.) (SETVALUE . 34.)
         (CONST&PUSH . 34.) (CONST . 34.) (JMPIFNOTEQTO . 34.)
         (JMPIFEQTO . 34.) (CALL2&JMPIF . 34.) (CALL2&JMPIFNOT . 34.)
         (CALL2&PUSH . 34.) (CALL2 . 34.) (CALL1&JMPIF . 34.)
         (CALL1&JMPIFNOT . 34.) (CALL1&PUSH . 34.) (CALL1 . 34.) (CALL0 . 34.)
         (CALL&PUSH . 28.) (CALL . 28.) (CALLSR&JMPIF . 13.)
         (CALLSR&JMPIFNOT . 13.) (CALLSR&STORE . 13.) (CALLSR&PUSH . 13.)
         (CALLSR . 13.) (CALLS2&JMPIF . 7.) (CALLS2&JMPIFNOT . 7.)
         (CALLS2&STORE . 7.) (CALLS2&PUSH . 7.) (CALLS2 . 7.)
         (CALLS1&JMPIF . 1.) (CALLS1&JMPIFNOT . 1.) (CALLS1&STORE . 1.)
         (CALLS1&PUSH . 1.) (CALLS1 . 1.)
        )
      256. FUNTABR-INDEX STRING 42. "; "
  )  )
#Y(#:TOP-LEVEL-FORM-312
   #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
   DISASSEMBLE REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE
      #152Y(00 00 00 00 01 00 00 00 00 02 AB 88 00 10 AB 8C 54 32 AB 2E 07 F7
            14 E0 37 01 8E 86 34 F7 9C 1F 07 93 01 24 09 02 82 01 AB 8D 0A 2A
            AB 88 0D 3A 2D 0A 14 2D 0B 14 62 E6 AF 6E 0D 2C 03 0F 14 2C 03 0C
            19 02 D9 DA AD DB DC DD 6D 03 06 AF 32 03 1F 9C 5D F7 1A 48 2D 0A
            14 2D 0B 14 9E 1A 5F E8 E9 EA EB 6D 03 06 AD 32 01 1F AB 8E 0D 71
            AB 8D 0C 20 AB EC 71 2F AC ED 71 2F AD EE 71 2F AE EF 71 2F AF F0
            71 2F B0 F1 71 2F B1 F2 71 2F 2C 07 1B F7 AB 2E 1C 9C 19 02
           )
      FUNCTION-NAME-P UNDEFINED-FUNCTION :NAME "Undefined function ~S"
      "Funktion ~S ist undefiniert." "Fonction non-dΘfinie ~S" LANGUAGE
      GET-FUNNAME-SYMBOL TRACED-DEFINITION MACRO PROGRAM-NAME PROGRAM-ID
      DISASSEMBLE-MACHINE-CODE CODE-ADDRESS-OF
      #Y(LISP::DISASSEMBLE-1
         #26Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C 08
              01 9C 19 04
             )
         "0x" DO-FORMAT-HEXADECIMAL
        )
      FORMAT ERROR "Cannot disassemble ~S"
      "~S kann nicht disassembliert werden." "Impossible de dΘassembler ~S" 0.
      1. 4. 5. 6. 7. 8. COMPILE-LAMBDA DISASSEMBLE-CLOSURE
  )  )